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A User's  Guide  to  the  Computer  Implementation  of  the  New 
Project  Scheduling  Procedure:  Statistical  PERT 

by 

Thomas  C.  Baker,  Jr.  and  Robert  L.  Sielken  Jr. 

ABSTRACT 

This  report  documents  a new  project  scheduling  procedure  developed 
at  the  Institute  of  Statistics,  Texas  A&M  University.  The  project  schedul- 
ing algorithm  is  a five  step  iterative  procedure  capable  of  determining  a 
minimum  cost  project  schedule  when  the  activities  making  up  the  project 
have  durations  which  are  random  variables.  The  cost  of  an  activity  is 
assumed  to  be  a convex  piecewise  linear  function  of  the  activity's  mean 
duration.  The  problem  is  to  determine  the  activity  mean  durations  which 
both  minimize  the  total  project  cost  and  insure  that  the  mean  (or  some 
specified  percentile)  of  the  corresponding  project  completion  time  distri- 
bution is  less  than  or  equal  to  a specified  project  deadline.  The  entire 
distribution  of  the  project's  completion  time  under  the  minimum  cost  schedule 
is  a valuable  by-product.  Information  on  the  trade-off  between  the  project's 
minimum  cost  and  its  specified  deadline  is  also  provided. 

This  report  is  intended  as  a user’s  guide  to  the  new  project  scheduling 
procedure  and  Its  computer  implementation.  The  report  includes  a description 
of  the  project  scheduling  problem,  a general  overview  of  the  scheduling 
procedure  Including  references  to  technical  reports  documenting  the  develop- 
ment of  the  procedure,  and  an  example  of  the  procedure’s  performance.  The 
documentation  of  the  computer  implementation  includes  specific  input 
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instructions;  sample  input  and  output;  flowcharts;  individual  program  ^ 

descriptions;  technical  delulls  concerning  temporary  data  sets,  job 
control  language,  and  program  interruption  and  restart  procedures;  and 
program  listings. 
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1.  The  Project  Scheduling  Problem 

A project  is  composed  of  several  "tasks"  or  "activities."  These 
activities  can  be  represented  by  arcs  in  a directed  network.  For  example, 
a small  project  might  consist  of  activities  A,  B,  C,  D , and  E with  the 
following  precedence  relationships: 

(i)  A must  be  completed  before  either  C or  D can  be  begun; 

(ii)  B must  be  completed  before  D can  be  begun;  and 

(iii)  C and  D must  both  be  completed  before  E can  be  begun. 

The  corresponding  network  representation  is  shown  in  Figure  1.  The  arc 
labeled  F does  not  correspond  to  any  "real"  activity  but  is  a "dummy" 
activity  merely  representing  the  precedence  relation  that  A must  be 
completed  before  D can  be  begun.  The  points  numbered  1,  2,  ...»  5 are 
called  nodes.  In  the  network  representation  of  a project  the  activities 
originating  at  a node  can  be  begun  only  after  all  activities  terminating 
at  that  node  have  been  completed. 

The  time  that  it  actually  takes  to  complete  an  activity  once  that 
activity  has  been  begun  is  called  the  activity's  duration  and  is  a random 
variable.  The  cost  of  an  activity  is  assumed  to  be  a convex  piecewise 
linear  function  of  the  activity's  mean  duration  time.  An  example  of  an 
activity's  cost  curve  is  given  in  Figure  2.  In  this  example  TIME(l)  is 
the  minimum  mean  duration  time  that  can  be  scheduled.  TIME(4)  is  the 
cheapest  mean  duration  and  hence  the  maximum  mean  duration  that  would  be 
scheduled.  Of  course  a linear  cost  curve  is  the  simplest  convex  piecewise 
linear  cost  function.  The  more  general  piecewise  behavior,  however, 
frequently  arises  if  there  are  alternative  methods  of  performing  an 
activity.  These  metiiods  do  not  differ  in  the  end  result  but  do  differ  in 
the  amount  of  time  they  take  and  their  cost.  For  example,  to  have  a mean 
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duration  in  the  interval  [TIME(l),  T1MK(2)]  might  require  the  use  of  a 
very  expensive  piece  of  special  equipment  while  having  a mean  duration  in 
the  interval  [TIME(2),  TIME(3)]  requires  only  specially  trained  personnel 
and  having  a mean  duration  in  the  interval  [TIME(3),  TIME(4)]  just  requires 
varying  amounts  of  standard  resources.  The  form  of  the  activity  duration 
distribution  may  vary  from  one  time  interval  to  another.  For  example,  the 
activity  duration  distribution  might  be  a beta  distribution  when  the  mean 
duration  is  in  (TIME(l),  TIME(3)]  and  approximately  a normal  distribution 
when  the  mean  duration  is  in  [TIME(3),  TIME(4)]. 

A project  schedule  is  a specification  of  each  activity's  mean  duration. 
The  total  project  cost  is  simply  the  sum  of  the  corresponding  activity  costs. 
The  time  to  complete  the  entire  project  is  a random  variable  whose  distri- 
bution depends  upon  the  activity  duration  distributions.  The  objective  is 
to  determine  a minimum  cost  project  schedule  such  that  the  mean  of  the 
corresponding  project  completion  time  distribution  (or  some  specified 
percentile  of  the  project  completion  time  distribution)  is  less  than  or 
equal  to  a specified  project  deadline. 
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Figure  2.  An  Activity's  Cost  as  a Function  of  the  Activity's  Mean  Duration 
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2.  Outline  of  Statistical  PERT 

In  1974  the  development  of  a new  project  scheduling  procedure  was  begun 
with  the  support  of  the  Office  of  Naval  Research.  The  new  project  scheduling 
procedure  that  has  resulted  is  an  iterative  algorithm  involving  the  following 
five  general  steps: 

Step  1.  Deterministic  Scheduling:  Find  a minimum  cost  project 

schedule  which  completes  the  project  by  TARGET  TIME  when 
each  activity's  duration  is  exactly  its  mean  duration  and 
hence  deterministic  instead  of  random.  (The  initial  value 
of  TARGET  TIME  is  usally  the  specified  project  deadline.) 

Step  2.  Simplification:  Let  each  activity's  duration  be  a random 

variable  with  distribution  corresponding  to  that  activity's 
mean  duration  chosen  during  Deterministic  Scheduling. 

Replace  various  configurations  of  activities  by  single 
activities.  The  duration  distribution  for  a replacement 
activity  is  the  distribution  of  the  time  to  complete  all  of 
the  activities  in  the  configuration  it  is  replacing.  The 
result  of  this  step  is  a simplified  project  network  with 
fewer  activities. 

Step  3.  Decomposition:  Partition  the  simplified  project  network 
into  several  subnetworks  in  such  a way  that  the  resultant 
subnetworks  can  be  linked  together  in  either  series  or 
parallel  to  form  the  simplified  project  network. 

Step  4.  Subnetwork  Analysis:  Analyze  separately  each  of  the  sub- 
networks determined  during  Decomposition.  Within  a 
subnetwork  each  activity's  duration  distribution  is 
approximated  by  a two-point  discrete  distribution  with 
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matching  mean,  variance,  and  third  moment.  Determine  the 

subnetwork  duration  distribution  corresponding  to  these  « 

discrete  activity  duration  distributions. 

Step  5.  Synthesis:  Combine  the  approximate  subnetwork  duration 
distributions  to  obtain  an  approximate  completion  time 
distribution  for  the  entire  project.  If  the  mean  (or  some 
specified  percentile),  T,  of  this  project  completion 
time  distribution  is  sufficiently  close  to  the  specified 
project  deadline,  the  "optimal"  project  schedule  has  been 
found.  Otherwise,  reset  TARGET  TIME  to  New  TARGET  TIME  = 

Old  TARGET  TIME*  (Project  Deadline/T)  and  return  to  Step  1. 

A general  discussion  and  relatively  nonmathematical  overview  of 
this  project  scheduling  procedure  is  contained  in  Appendix  D,  "Flowchart 
of  the  Computer  System,"  and  Appendix  E,  "Program  Descriptions" (see  also 
Sielken  and  Hartley  (1977)).  The  detailed  documentation  of  the  develop- 
ment thus  far  of  each  step  is  as  follows: 

Step  1.  Dunn  and  Sielken  (1977); 

Step  2.  Hartley  and  Wortham  (1966)  and  Ringer  (1969); 

Step  3.  Sielken  and  Fisher  (1976); 

Step  4.  Sielken,  Ringer,  Hartley,  and  Arseven  (1974),  Sielken,  Hartley, 
end  Spoeri  (1976),  and  Baker  and  Sielken  (1978); 

Step  5.  Sielken,  Ringer,  Hartley  and  Arseven  (1974)  and  Sielken, 

Hartley,  and  Spoeri  (1976). 

The  forthcoming  Technical  Report  No.  60,  "Statistical  PERT:  The  Precision 

i 

of  the  Estimated  Project  Completion  Time  Distribution,"  will  also  be  of 
interest  to  the  user. 
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3.  An  Example  of  Statistical  PERT's  Performance 

A small  project  network  is  depicted  in  Figure  3.  The  relationship 
, between  each  activity's  mean  duration  and  its  cost  is  given  in  Table  1. 

! The  project  scheduling  algorithm  also  requires  that  the  activity's  duration 

distribution  be  specified  at  the  midpoint  of  each  time  interval  on  the 
convex  piecewise  linear  cost  function,  i.e.,  when  the  activity's  mean 
duration  is  [TIME(l)  + TIME(2)]/2,  [TIME(2)  + TIME(3)]/2,  etc.  This  infor- 
mation is  also  given  in  Table  1.  The  algorithm  assumes  that  if  an  activity's 
mean  duration  is  not  at  the  midpoint  but  at  c times  the  midpoint  and  still  in 
the  same  time  interval,  then  the  activity's  duration  distribution  has  the 
same  form  (Normal,  Beta,  Constant,  etc.)  but  with  a new  variance  equal  to 
c2  times  the  variance  at  the  midpoint.  Thus,  for  example,  if  activity  A's 
mean  duration  is  28,  its  cost  is  34,  and  activity  A's  duration  distribution 
is  Beta  [10,40)  with  mean  28  and  variance  (28/25)236. 

With  a project  deadline  of  125  the  algorithm's  iterative  determination 
of  the  minimum  cost  project  schedule  is  as  follows: 

Step  1.  Deterministic  Scheduling:  The  shortest  feasible  project 
completion  time  when  each  activity  duration  is  its  mean 
duration  is  found  to  be  90  by  determining  the  longest  path 
through  the  project  network  when  each  activity's  duration 
* is  equal  to  its  minimum  mean  duration,  TIME(l).  Similarly, 

the  longest  such  feasible  project  completion  time  is  found 
to  be  135  by  determining  the  longest  path  through  the  project 
network  when  each  activity's  duration  is  equal  to  its  maximum 

| 

mean  duration.  The  minimum  cost  schedule  which  completes  the 
project  by  TARGET  TIME  when  each  activity's  duration  is  its 


mean  duration  is  determined  for  each  value  of  TARGET  TIME 


* 


Table  1.  Activity  Costs  and  Duration  Distributions 


Activity  Mean  Durations  Cost  Duration  Distribution  at  Midpoint 


A 

TIME (1) 

«3 

10 

100 

TiME(2) 

- 

15 

70 

T1ME(3) 

S 

20 

50 

T1ME(A) 

K 

30 

30 

B 

TIME(l) 

B 

8 

60 

TIME (2) 

■ 

1A 

A5 

C 

T1ME(1) 

ac 

10 

50 

D 

TIME(l) 

as 

50 

200 

TIME(2) 

B 

70 

160 

E 

T1ME(1) 

m 

32 

A5 

TIME(2) 

s 

A0 

A0 

F 

TIME(l) 

■t 

20 

6A 

TIME(2) 

m 

32 

A8 

C 

TJME(l) 

a 

13 

30 

TIME(2) 

s 

19 

25 

H 

TIME (1) 

a 

20 

60 

TIME (2) 

m 

30 

50 

TIME (3) 

at 

35 

A8 

I 

TIMF.(l) 

at 

5 

60 

J 

TIME (1 ) 

a 

18 

62 

TIME (2) 

m 

26 

A9 

K 

TIME(l) 

m 

10 

A0 

L 

TIME(l) 

m 

6 

75 

TIME(2) 

» 

10 

50 

Beta  on  [5,20]  with  mean  12.5  and  variance  16 

Normal  with  mean  17.5  and  variance  25 

Beta  on  [10, AO]  with  mean  25  and  variance  36 

Normal  with  mean  11  and  variance  9 

Constant  Duration  « 10 

Normal  with  mean  60  and  variance  100 

Normal  with  mean  36  and  variance  18 

Beta  on  [10,50]  with  mean  26  and  variance  70 

Normal  with  mean  16  and  variance  7 

Normal  with  mean  25  and  variance  12 
Normal  with  mean  32.5  and  variance  9 

Constant  Duration  *•  5 

Beta  on  [10, A0|  with  mean  22  and  variance  6 

Constant  Duration  ” 10 

Normal  with  mean  8 and  variance  5 
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Table  1.  (Continued) 


Activity  Mean  Durations  Cost 


M 

TIME(1 ) 

=■ 

36 

225 

TIME(2) 

= 

44 

175 

N 

T1ME(1) 

30 

400 

TIME (2) 

“ 

40 

300 

0 

TIME(l) 

- 

60 

250 

TIME(2) 

m 

80 

210 

P 

TIME(l) 

- 

4 

52 

Q 

TIME(l) 

- 

2 

100 

TIME(2) 

- 

4 

90 

R 

TIME(l) 

- 

4 

110 

TIME(2) 

a 

6 

80 

Duration  Distribution  at  Midpoint 


Normal  with  mean  40  and  variance  60 


Normal  with  mean  35  and  variance  25 


Normal  with  mean  70  and  variance  144 

Constant  Duration  ■ 4 

Beta  on  [1,6]  with  mean  3 and  variance  1 


Normal  with  mean  5 and  variance  2 
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between  90  and  135.  The  corresponding  optimal  activity 
mean  durations  are  given  in  Table  2.  The  project  cost  curve 
is  depicted  in  Figure  A. 

The  initial  activity  mean  durations  are  those  corresponding 
to  TARGET  TIME  - 125;  namely. 


A = 30, 

F = 32, 

o 

rH 

1) 

P - A, 

B = 1A, 

C = 13, 

L = 10, 

<r 

ii 

O' 

C = 10, 

H = 3A, 

M = AA, 

R = 6. 

D = 70, 

I = 5, 

N = A0, 

E = A0, 

J = 23, 

O 

n 

00 

o 

Step  2.  Simplification:  The  only  configuration  of  activities  which 
can  be  readily  replaced  by  an  equivalent  single  activity  is 
A,  B,  and  C in  parallel.  If  the  replacement  activity  is 
denoted  by  ABC,  then  the  simplified  project  network  consists 
of  the  single  activity  ABC  and  the  original  activities  D, 

E,  ...,  R.  The  initial  duration  distribution  for  ABC  as  a 
function  of  t is 

FABC(t)  • rA(t)FB(t)FC(t> 

where  F.(t)  denotes  a beta  distribution  with  mean  30  and 
A 

variance  (30/25) 2 [ (AO  - 30) 2/36 ] , FD(t)  denotes  a normal  distribution 

D 

with  mean  1A  and  variance  (1A/11)29,  and  F^(t)  denotes  the 
distribution  for  a constant  duration  of  10. 

Step  3.  Decomposition:  The  simplified  project  nit work  is  partitioned 
into  two  subnetworks  in  series.  The  first  subnetwork,  SUB^ , 
consists  of  the  single  activity  ABC.  The  second  subnetwork. 


SUB^,  consists  of  the  activities  I),  F., 


• • • * 


K. 


Table  2.  Optimal  Activity  Mean  Durations  for  All  Feasible  TARGET  TIME' 
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i i i 

u-!<roo<j'<Nr-'<fu-i.--ioo<roo-<r-»vo 

HHHM'mHn  N H H 'J  -J  00 


O 

I 

0'»000ipn0^iftii00^00'»'»>0 

NHHNnnnn  n h h sf  oo 


O Q 

I I 

0<T000<NC">'Jl/'IC'400<T00<*<T'r> 

NHrlN<nrtn  N H H 't  'T  00 


a 

i 

o<rooorjm<j-u-irsioO'S,00<r<»vo 
m ^ h -}  <f  co 


Q 

O'JOOONC0-Jifl«OO^OO-J'J'0 
CS|  00 


a 

I 

O'»OOOCM0''»V>'0OO'»OO'»'»'0 
l<1rlHN"J  flHIO  (S|r-lf-l'»'»00 


a 

I 

O'JOOONIMOiO'OOO'JOO'}'}^ 
CIHHN'JHpIIO  N H H 'J  'J  00 


*J  <«UOWU.OSHT>;(JJ.^Ofc.Olc; 

2 
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Stop  4.  Subnetwork  Analysis:  The  activity  duration  distributions  for 

activities  ABC,D,  R are  approximated  by  two-point  discrete 

distributions  with  matching  mean,  variance,  and  third  moment. 
Then  the  subnetwork  duration  distribution  corresponding  to 
these  discrete  activity  duration  distributions  is  determined 
for  SUB | and  SUB^  respectively. 

Step  5.  Synthesis:  Since  SUB^  and  SUB^  are  in  series,  their  approximate 
duration  distributions  determined  in  Step  4 are  combined  using 
equation  (8.1)  to  yield  an  approximate  project  completion  time 
distribution.  The  mean  of  this  distribution  is  139.42,  so  that 
the  new  TARGET  TIME  Is 


New  TARGET  TIME  - 125(125/139.42)  = 112.07 
Return  to  Step  1 . 

Step  1.  Deterministic  Scheduling:  Using  Table  2 the  optimal  activity 


mean 

durat ions 

f or 

TARGET 

TIME 

* 112.09  are 

A = 

19. o; 

F 

- 

32, 

K = 

10, 

P = 4, 

B = 

14, 

0 

z 

13, 

L = 

10, 

Q = 4, 

C = 

10, 

H 

S3 

34, 

M = 

44, 

R = 6, 

D = 

70, 

I 

= 

5, 

N « 

40, 

E = 

39, 

J 

> 

21, 

0 - 

80, 

Step  2.  Simplification:  The  structure  of  the  simplified  project  network 
never  changes  after  the  first  iteration.  Only  the  duration 
distribution  of  ABC  needs  to  be  redetermined. 

Step  3.  Decomposition:  The  partitioning  of  the  simplified  project 
network  never  changes  after  the  first  iteration. 
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Step  4.  Subnetwork  Analysis:  The  new  activity  duration  distributions 

are  approximated  by  new  two-point  discrete  distributions.  Then 
new  approximate  duration  distributions  for  SUB^  and  SUB^  are 
determined . 

Step  5.  Synthesis:  The  new  approximate  project  mean  completion  time 
is  128.42,  so  that  the  new  TARGET  TIME  is 

New  TARGET  TIME  = 112.07(125/128.42)  = 109.09. 

Return  to  Step  1. 

If  128.42  was  sufficiently  close  to  the  specified  project  deadline  of 
125,  then  these  optimal  activity  mean  durations  would  constitute  the 
minimum  cost  project  schedule.  Otherwise,  the  project  scheduling  algorithm 


could  be  continued. 
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4.  Concluding  Remarks 

The  new  project  scheduling  procedure  allows  the  project  scheduler 
to  specify 

(1)  the  precedences  among  the  project's  activities, 

(ii)  the  relationship  between  an  activity's  cost  and  its  mean  duration, 

(iii)  the  manner  in  which  an  activity's  actual  duration  varies  about 
its  mean  duration,  and 

(iv)  a deadline  for  either  the  project's  mean  completion  time  or  a 

prescribed  percentile  of  the  project  completion  time  distribution. 

In  return  the  project  scheduler  receives 

(i)  a minimum  cost  project  schedule  which  delineates  each  activity's 
mean  duration  time, 

(ii)  an  estimate  of  the  distribution  of  the  project  completion  time, 

(iii)  information  on  the  trade-off  between  the  project's  minimum  cost 
and  its  specified  deadline,  and 

(iv)  a tool  for  monitoring  the  project's  progress  and,  if  need  be, 
rescheduling . 

An  exciting  feature  of  this  new  project  scheduling  procedure  is  that 
it  simultaneously  incorporates  the  desire  to  minimize  the  project  cost  and 
the  realization  that  an  activity's  duration  is  not  necessarily  a fixed 
quantity  exactly  equal  to  its  prescribed  duration  but  rather  a random  quantity 
varying  about  a prescribed  duration.  No  longer  must  the  project  scheduler 
either  (i)  choose  a reasonable  cost  schedule  which  heur istically  hedges 
against  the  randomness  in  the  activities  he  guesses  will  be  critical,  or 
(ii)  choose  a reasonable  schedule  which  should  probably  finish  before  the 
deadline  and  then  guess  where  he  can  save  money  without  disturbing  the 
suspected  completion  time  too  much.  By  considering  both  cost  and  randomness 


together  in  one  systematic  algorithm,  the  new  project  scheduling  procedure 
eliminates  this  guesswork. 
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Appendix  A 


Specific  Input  Instructions  for  the  Statistical  PERT  Computer  System 

Only  the  main  program  (MAIN)  requires  any  input  data  cards.  The 
order  and  setup  of  those  cards  is  indicated  below. 


Card 

Order 

Column 

Format 

Description 

1 

1-10 

no 

NACT  = the  number  of  activities  in  the 

project  network:  NACT  < 1000. 

11-20 

no 

NODES  = the  number  of  nodes  in  the 

project  network;  NODES  < 1000. 

21-30 

no 

NSRCE  = the  number  of  the  project's 

source  node;  1 < NSRCE  < 9999. 

31-40 

no 

NSINK  = the  number  of  the  project's 

sink  node;  1 < NSINK  ^ 9999. 

41-50 

no 

LNODEN  = the  largest  node  number  in 

the  project  network;  LNODEN  < 9999. 

★ ★a***************************;****** 

Repeat  cards  2-5  for  each  activity  in  the  project  network. 

2 1-10  110  I = the  number  of  the  activity  being 


described;  1 < I < 9999.  (Note:  The 
network's  activities  need  not  be 
numbered  consecutively,  and  they 
need  not  be  described  in  order.) 

11-20  110  NODEO  = the  activity's  origin  node 

number;  1 < NODEO  9999. 

21-30  110  NODET  = the  activity's  terminal  node 

number;  1 < NODET  <_  9999. 
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31-40  1 1 0 NOT  = the  number  of  completion  times 

and  costs  needed  to  specify  tills 
activity's  piecewise  linear  cost  curve 
as  a function  of  Its  mean  duration; 

2 <_  NCT  <_  6.  See  Figure  A.l  for 
clarification.  (Note:  For  activities 
wl  tli  constant  or  f 1 xed  duration  , NOT  r 2.) 


3 1-10 

no 

T1ME(1)  . 

11-20 

• 

no 

TIME(2). 

0 

• 

(NO'T-1  )*  1 0+1-NCT*!  0 

no 

• 

TIME (NCT) 

TIMF.(J)  * the  J-th  activity  completion 
time;  0 <.  TIMF.(.J)  < 32768  *=  21S.  These 
times  must  be  In  increasing  order.  See 
Figure  A.l  for  clarification.  (Note: 
For  activities  with  constant  duration 
TIMF.(l)  TIMF(2)  . ) 


4 1-10 

no 

C0ST(1 ). 

11-20 

• 

no 

COST (2)  . 

• 

0 

( NCT- 1 ) * 1 0+1-NCT* 1 0 

no 

• 

COST (NCT). 

COST(J)  * the  cost  associated  with  the 
J-th  activity  completion  time; 

0 <_  COST(J)  < 32768  = 21’.  See 
Figure  A.l  for  clarification.  (Note: 
For  activities  with  constant  duration, 


C0ST(1)  = C0ST(2) . ) 


t 


COST (3) 


TIME(l)  TIME(2)  TIME(3) 


(NCT  = 3) 


Figure  A.l 

An  example  of  an  activity's  cost  curve. 
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Card  5 is  n "packet"  composed  of  NCT  - 1 cards  each  containing  the 
following  information. 


1-10 

no 

J = 1 , 2,  .... 

NCT  - 1. 

1 1-20 

no 

TDTST(.J)  = the 

distribution  of  the 

activity's  duration  for  the  range  of 
mean  durations  (TIME(.J),  TTMF.(.I+1)  ) ; 
see  Table  A.l  for  the  values  IDIST(J) 
may  assume. 


21-30 

F10. 5 

PARM1  (.1)  . 

31-40 

F10.5 

PARM2 (J) . 

41-50 

F10.5 

PARM3(J) . 

50-60 

F10.5 

PARM4 (J) . 

PARMl (J)  , PARM2(.l)  , PARM3(J),  and  PARM4C.1) 
are  the  parameters  of  the  activity's 
duration  distribution  when  the  activity 
has  mean  duration  (TIME(J)  + TIMF.(J+l))/2. 
The  meaning  of  the  values  of  these 
variables  depends  on  the  activity's 
distributional  type  as  described  in 
Table  A.l. 

************************************ 


6 

1-10 

no 

TF.ST1 . 

11-20 

no 

TEST2 . 

TF.ST1  and  TEST2  control  the  amount  of 

output  from  the  deterministic  project 
scheduling  program  (DPS). 
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Table  A.l 


Activity  Duration  Distributions  and  Their  Parameters 


Distribution 

Beta 

Normal 

Rectangular 

Dummy 

IDIST 

- 

i 

0 

1 

2 

PARM1 

Min  Time 

Min  Time 

Min  Time 

.... 

Min  Time 

Fixed  Time 

PARM2 

Mode 

Alpha,  a 

Mean,  p 

Mean,  p 

— 

— 

PARM3 

Max  Time 

Max  Time 

Max  Time 

St  Dev . , 0 

Max  Time 

.... 

PARMA 

-1 

Beta,  B 

-1 

1 

• • • • 

.... 

a 

b 

c 

d 

e 

f 

Interpreted  Distribution: 

T(a+b+2) (x-Min)a(Max-x)‘ 


a)  f (x)  = 


r(a+l) r(b+l) (Max-Min) 


a+b+1 


Min  < x < Max 


, L . Min+4*Mode-fMax  , ? (Max-Min) y 

where  a,  b chosen  so  that  p = -r and  o = — 

o JO 

c / \ r(a+g+2) (x-Min)a(Max-x)^  ...  w , 

b)  f (x)  = — — — * — » Min  £ x £ Max  , a > -1  B > -1 

r(a+l)r(B+l)(Max-Min)a  b+1 


which  implies 

1 -^“>2 
c)  f (x)  = e 


Min(B+l)+Max(a+l) 
V = (a+B+2) 


d)  f(x) 


/2ir  s 

where  s = (Max  - Min)/6  and  p 3s  is  reasonable 

i ~h<^)2 

e , 


/27  o 

where  p > 3o  is  reasonable 


e)  f(x) 


(Max-Min)  * 


f)  f(x)  - 1 , 


Min  < x < Max 


x = FIXED  TIME 
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TEST1  = input  data  option. 

TEST1  = 0 implies  all  the 

information  input  to  the 
program  is  to  be  printed. 

TEST1  = 1 imp! ies  the  input  data 
is  not  to  be  printed. 

TEST2  = intermediate  output  option. 

TEST2  = 0 implies  the  output 

arising  from  intermediate 
calculations  is  to  be 
printed  in  addition  to 
the  optimal  activity  mean 
durations  for  every 
feasible  completion  time. 

TEST2  = 1 implies  the  optimal 

activity  mean  durations 
for  every  feasible  project 
completion  time  are  to  be 
printed  but  the  interme- 
diate calculations  are 
not  to  be  printed. 

21-30  110  JMAT  » an  output  option  in  the  simplifi- 

cation program  (SIMP). 

JMAT  = 1 implies  that  only  the 
activity  number,  origin 
node,  terminal  node,  and 


duration  distribution  for 
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for  each  activity  in  the 
simplified  network  is  to 
be  printed  (minimum  output) 
•IMAT  = 0 implies  the  minimum 

output  plus  a listing  of 
which  activities  were 
simplified  and  what 
activity  configurations 
are  to  be  printed  (com- 
plete output). 

The  quantities  on  card  7 are  all  parameters  used  by  the  subnetwork 
analysis  program  (SUBNET).  See  Appendix  I)  for  a more  detailed 
description  of  Subnetwork  Analysis. 


7 


1-10 


1 1-20 


21-30 


110  IEDF  = the  number  of  subdivisions  in  the 

estimated  duration  distribution  for  each 
subnetwork;  2 IEDE  <_  20. 

110  NMAX  = the  maximum  number  of  activities 

in  a subnetwork  for  which  the  subnetwork' 
entire  discrete  duration  distribution  is 

to  be  automatically  enumerated;  since 

-NMAX  . . , . 

2 calculations  are  required,  a reason 

able  value  for  NMAX  is  12. 

110  IPOOL  = the  bound  computation  option. 

1P00I,  = 0 implies  the  maximum- 

cluster  procedure  is  to 


be  used  to  determine  the 
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upper  and  lower  bounds 
on  each  subnet- 
work's discrete  duration 
distribution. 

IPOOL  = 1 Implies  the  union- 

cluster  procedure  Is  to 
be  used  to  determine  the 
upper  and  lower  bounds 
(F+,  F^)  on  each  subnet- 
work's discrete  duration 
distribution. 

31-40  110  SAMSIZ  = the  maximum  number  of  activity 

duration  configurations  to  be  explicitly 
considered  in  the  determination  of  the 
upper  and  lower  bounds  on  each  subnet- 
work's discrete  duration  distribution; 
SAMSIZ  1 2NMAX. 

Card  8 contains  additional  parameters  used  by  the  subnetwork  analysis 
program  (SUBNET). 

8 1-10  110  THELAM  - (8, A)  pair  option. 

THEI.AM  » 0 implies  the  standard 
(0,A)  pairs  are  to  be 
used  when  determining 
clusters , i .e . , 

(0,A)  = (1,1),  (2,2), 


* l 
I 


(3,2). 
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11-20 

21-30 

31-40 

41-50 

51-60 

61-70 


The  quantities  on 
(SYNTH) . 

9 1-10 


THELAM  = 1 impl ies  the  three 

specified  (0,A)  pairs 
are  to  he  used  when 
determining  clusters 
instead  of  the  standard 
pa  I rs . 

F10. 5 THETA (1 ) . 

FI 0.5  THETA (2). 

F10.5  THETA(3) . 

F10.5  LAMBDA(l). 

F10. 5 LAMBDA (2) . 

F10. 5 LAMBDA(3). 

THF.TA(T)  » the  I-th  0-value  to  he  used  if 
THELAM  - 1. 

LAMBDA(T)  = the  I-th  A-value  to  be  used 
if  THELAM  = 1. 

The  following  relations  must  always  be 
true: 

0 1 THETA ( 1 ) £ THETA (2)  <_  THETA (3) 

0 _<  LAMBDA(l)  <_  LAMBDA  (2)  <_  LAMBDA(3). 
Tf  THELAM  • 0,  these  values  are  ignored, 
card  9 are  parameters  used  by  the  synthesis  program 

110  TOPT  = a computation  option. 

TOPT  = 0 implies  the  PCT-th 


percentile  of  the  net- 
work's approximate 
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comp  let  Ion  rime  distri- 
bution is  to  be  compared 
to  the  specified  project 
deadline,  PD. 

TOPT  = 1 Implies  the  mean  of  the 
network's  approximate 
completion  time  distribu- 
tion is  to  be  compared  to 
the  specified  project 
deadline,  PD. 

11-20  110  NT  ■ the  number  of  subdivisions  in  the 

network's  synthesized  completion  time 
distribution;  NT  <_  49. 


21-30 

F10.5 

PCT  » the  percentile  value 

to  be  used  if 

IOPT  “ 0;  for  example,  PCT 

» 90.0. 

c 

1 

r> 

F10.  5 

PD  « the  specified  project 

deadl ine . 

41-50 

F10.5 

TT  - the  initial  target  time  to  be  used 

by  the  deterministic  project  scheduler 
(DPS)  in  attempting  to  generate  a project 
schedule  whose  corresponding  completion 
time  distribution  has  mean  (I0PT  ■ 1) 
or  PCT-th  percentile  (IOPT  - 0)  equal 
equal  to  PD.  Usually  TT  <_  PD  works 


best.  A standard  value  would  be  TT  « PD. 
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APPENDIX  B 

Computer  Input  for  the  Example  in  Section  3 


1 a 

9 

1 

9 

9 

1 

1 

2 

4 

10 

15 

20 

20 

1 00 

70 

50 

30 

1 

-1 

5. 

.257812 

20. 

.257812 

2 

0 

17.5 

5. 

1 • 

J 

-1 

1 0. 

25. 

40. 

-1  . 

2 

1 

2 

2 

a 

14 

6 J 

45 

1 

0 

1 1. 

3. 

1 . 

0 

1 

2 

2 

1 0 

1 0 

5 0 

50 

1 

2 

10. 

4 

2 

6 

2 

50 

70 

200 

160 

1 

0 

60. 

10. 

1 • 

5 

2 

5 

2 

32 

40 

45 

40 

1 

0 

36. 

4.242641 

1 • 

6 

2 

4 

2 

20 

32 

64 

46 

1 

-1 

1 0. 

• 794 2 e5 

50. 

1.691428 

7 

2 

3 

2 

1 J 

19 

30 

25 

1 

0 

16. 

2.645751 

1 • 

a 

5 

6 

20 

30 

35 

-JO- 


b 0 

50 

48 

1 

0 

25. 

3.464102 

1 • 

2 

0 

23.5 

32.5 

4 1.5 

-1  . 

9 

4 

5 

2 

D 

5 

6 0 

60 

1 

2 

5. 

1 0 

3 

4 

2 

l a 

26 

t>2 

49 

1 

-1 

10. 

1 3. 

40. 

20. 

l i 

6 

8 

2 

tu 

1 0 

4 0 

40 

1 

2 

10. 

1 2 

6 

7 

2 

b 

1 0 

7b 

50 

1 

0 

6. 

2.236068 

1. 

1 J 

5 

7 

2 

Jo 

44 

22  5 

1 75 

1 

0 

40. 

8 • 944272 

1 • 

1 4 

4 

7 

2 

JO 

40 

4 0 O 

300 

1 

0 

20. 

35. 

50. 

-1  . 

1 6 

J 

9 

2 

b u 

80 

25o 

210 

i 

0 

70. 

12. 

1. 

lb 

7 

8 

2 

4 

4 

52 

52 

1 

2 

4. 

1 7 

7 

9 

2 

2 

4 

100 

90 

1 

-1 

1. 

1. 

6 . 

2. 

1 b 

8 

9 

2 

4 

6 

1 10 

80 

1 

0 

5. 

1.414214 

1 . 

1 

1 

1 

20 

9 

1 

500 

0 

1 

49 

125. 

1 25. 
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Appendix  C 

Computer  Output  for  the  Example  in  Section  3 
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THE  DIFFERENCE  BETWEEN  12d.*2|71  ANO  THE  PROJECT  DEADLINE  IS  2*74  PERCENT  OF  THE  PROJECT  OEAOcINE 

HENCE.  THE  N£ • TANCET  T1*E  IS  109.06702 
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Appendix  F. 

Program  Descriptions 

1.  MAIN:  Original  Input  Program 

The  computer  system  for  performing  the  new  iterative  five  step  project 
scheduling  procedure  has  been  designed  so  that  the  user  need  only  input 
a description  of  the  project  network  once.  Program  MAIN  reads  this 
description  (See  Appendix  A)  and  stores  it  on  disk  or  tape  for  use  by 
the  programs  described  in  the  following  subsections. 

The  procedures  used  to  determine  the  optimal  project  schedule  require 
that  the  project  network  be  acyclic;  i.e.,  the  project  has  no  loops  (cycles). 
Hence,  MAIN  searches  the  network  inputted  for  loops.  MAIN  examines  each 
node  in  the  project  network  and  determines  whether  the  node  is  on  a loop 
and,  if  so,  how  many  activities  are  in  the  loop  found. 
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2.  DPS:  Deterministic  Project  Scheduling 

The  problem  of  finding  a minimum  cost  project  schedule  which 
completes  the  project  by  TARGET  TIME  when  each  activity's  duration 
is  exactly  its  mean  duration  can  be  formulated  as  a linear  program- 
ming problem.  However,  due  to  the  large  number  of  variables  and 
constraints  involved,  a straightforward  linear  programming  solution 
would  be  impractical.  Instead  the  dual  of  this  linear  programming 
problem  is  considered,  further  reformulated,  and  then  solved  using 
the  very  efficient  network-flow  algorithm  described  in  Dunn  and 
Sielken  (1977).  This  network-flow  algorithm  is  a generalization  of 
D.  R.  Fulkerson's  algorithm  (1961)  for  solving  similar  problems  with 
linear  activity  cost  functions.  The  generalized  network-flow  algorithm 
Iteratively  generates  the  minimum  cost  project  schedule  for  every 
feasible  deterministic  completion  deadline.  The  corresponding 
deterministic  project  cost  curve  is  a convex  piecewise  linear  function 
of  TARGET  TIME  and  a valuable  description  of  the  relationship  between 
a project's  cost  and  its  deadline.  The  optimal  activity  mean  durations 
are  linear  functions  of  the  TARGET  TIME  on  each  linear  piece  of  the 
project  cost  curve. 
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1 . !)SK:  Deterministic  Schedule  Resolution 

Since  the  deterministic  project  scheduler  iteratively  generates 
the  optimal  activity  mean  durations  for  all  feasible  completion 
deadlines.  Step  1 is  essentially  only  performed  once.  When  the 
general  iterative  algorithm  returns  to  Step  1 with  a new  TARGET  TIME, 
f Lnding  the  optimal  activity  mean  durations  is  essentially  a simple 
table  look-up  procedure.  For  a more  complete  detailed  discussion 
of  Deterministic  Scheduling  see  Dunn  and  Sielken  (1977). 
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4.  SIMP:  Simplif ication 

Five  configurations  of  activities  for  which  a single  equivalent 
activity  and  duration  distribution  are  readily  available  are  depicted 
in  Figure  E.l.  The  equivalent  single  activity  duration  distributions 
for  the  parallel,  series,  and  Wheatstone  Bridge  configurations 
were  originally  identified  by  Hartley  and  Wortham  (1966)  and  for 
the  Double  Wheatstone  Bridge  and  Criss-Cross  configurations  by 
Ringer  (1969). 

Simplification  is  an  iterative  procedure  as  illustrated  in  Figure 
E.2.  In  the  special  case  where  Simplification  reduces  the  project 
\ network  down  to  just  one  activity  as  in  Figure  E.2,  the  project 

completion  time  distribution  is  directly  determined  so  that  Steps  3 
and  4 are  skipped.  Although  a reduction  to  one  activity  is  a very 

« 

special  case,  reductions  of  over  50%  are  quite  common. 
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Activities  in 
Parallel 


Two  Activities  in 
Series 


Criss  - Crosses 


Figure  E.l  Activity  Configurations  Which  Can  be  Readily  Replaced  by  a Single 
Equivalent  Activity 


Figure  E. 2 (Continued) 


Project  Network  After  Activities  in  Parallel  and  Activities  in  a 
Wheatstone  Bridge  Replaced  by  Equivalent  Single  Activities 


Replaced  by  Equivalent  Single  Activities 




Simplified  Project  Network  After  Activities  in-  a Double  Wheatstone 
Bridge  Replaced  by  an  Equivalent  Single  Activity 


5.  MODSIMP:  Subsequent  Simplit leation 

The  structure  of  the  simplified  network  is  identified  by  SIMP. 
MODSIMP  determines  the  distribution  of  the  activity  durations  in 
the  simplified  network. 
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6.  SUBNET:  Subnetwork  Analysis 
6.  ] Introduction 

The  objective  of  Subnetwork  Analysis  is  to  determine  each 
subnetwork's  duration  distribution. 

At  the  end  of  Step  2 each  activity  in  the  subnetwork  has  a 
specified  duration  distribution.  This  distribution  is  now  approximated 
by  a two-point  discrete  distribution.  In  particular,  an  activity,  say 
A,  is  now  conceptualized  as  having  two  possible  duration  times,  say 
for  a lower  duration  and  u^  for  an  upper  duration.  The  probability 
that  the  activity  duration  is  l is  assumed  to  be  P , and  correspond- 

A A 

ingly  the  probability  that  the  activity  duration  is  u^  is  assumed  to 
be  Qa * 1 - P^.  The  values  of  l u^,  and  P^  are  chosen  so  that  the  mean, 
variance,  and  third  moment  of  the  discrete  distribution  are  the  same 
as  the  mean,  variance,  and  third  moment  of  activity  A's  specified 
duration  distribution. 

Let  n be  the  number  of  activities  in  the  subnetwork.  Let 
v = 1,  2,  ...,  2n  index  the  2°  possible  configurations  of  activity 
durations  when  each  activity  is  either  at  its  upper  duration  or  at  its 
lower  duration.  Let 


where 


Pv  ■ probability  of  the  v-th  activity 


duration  configuration 


■ 1:1|pi<i  - ‘v.i1  + v.,i' 


(6.1) 
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) 


<5  . = 1 if  the  duration  for  the  i-th  activity  is  u 

in  the  v-th  activity  duration  configuration 
»0  if  the  duration  for  the  i-th  activity  is 

in  the  v-th  activity  duration  configuration.  (6.2) 

Then  the  subnetwork  duration  distribution  when  each  activity  has  its 
two-point  discrete  distribution  is 

2n 

F(t)  - £ PvIt(tv)  (6.3) 

v=l 

where 


and 


t 

v 


the  subnetwork  duration  when  the  activity  durations 
are  in  the  v-th  configuration 


(6.0 


W 


if  t < t 
v — 


- 0 if  t > t . 
v 


(6.5) 


The  discrete  distribution  function  F is  an  approximation  to  the  sub- 
network’s exact  duration  distribution. 

The  goal  of  Subnetwork  Analysis  is  to  determine  F. 

Since  the  number,  n,  of  activities  in  the  subnetwork  may  be  fairly 
large,  the  complete  enumeration  of  the  2n  discrete  subnetwork  durations 
may  sometimes  be  impractical.  When  this  happens,  the  discrete  sub- 
network duration  distribution  F must  be  approximated.  The  approximation 
of  F will  be  based  on  the  activities  which  are  mostly  likely  to  influ- 
ence the  subnetwork  duration.  The  identification  of  these  important 
activities  and  their  interrelationships  is  discussed  in  the  next  sub- 
section which  is  a review  of  the  procedures  originating  in  Sielken, 
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i 


i 


Ringer,  Hartley,  and  Arseven  (1974)  and  Siolken,  Hartley,  and  Spoeri 
(1976). 

Each  subnetwork  Is  assumed  to  be  an  acyclic,  network  with  one 
source,  one  sink,  and  no  cut  vertices. 


6.2  Formation  of  Clusters 


The  mean  duration  for  activity  A is 


m =*  P I + Q.u.  , 

A A A A A 

and  the  standard  deviation  of  activity  A's  duration  is 


2 j.  n ..2  _ 


( Va  + Va 


(6.6) 


(6.7) 


When  each  activity  duration  takes  on  a fixed  (nonrandom)  value, 
the  subnetwork's  duration  is  the  duration  of  the  longest  path  through 
the  subnetwork  where  the  "length"  of  an  activity  is  its  duration. 

For  example,  consider  the  subnetwork  described  in  Table  E.l  and  displayed 
in  Figure  E.3.  When  each  activity  duration  is  ltB  mean  duration,  then 
the  subnetwork's  duration  is  32,  corresponding  to  the  path  consisting 
of  activities  2,  7,  and  9. 


Definition  1:  A critical  activity  is  an  activity  on  the  longest 
path  when  all  the  subnetwork's  activity  durations  are  set  to  their 
means . 

Thus  in  the  example  the  critical  activities  are  2,  7,  and  9. 

The  search  for  the  activities  which  are  most  likely  to  Influence 


the  subnetwork  duration  begins  with  the  critical  activities.  Each 
critical  activity  initiates  a separate  set  of  activities  called  a 


> 
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TABLE  E.l 


Activity  Durations  for  the  Subnetwork  in  Figure  2 

Activity 

*A 

UA 

PA 

“A 

SA 

1 

0.00 

2.00 

.5 

1 

1 

2 

8.00 

10.50 

.2 

10 

1 

3 

9.55 

15.67 

.6 

12 

3 

4 

1.50 

4.00 

.8 

2 

1 

5 

3.35 

5.52 

.7 

4 

1 

6 

4.00 

6.00 

.5 

5 

1 

7 

8.73 

16.90 

.6 

12 

4 

8 

12.00 

14.50 

.2 

14 

1 

9 

5.00 

15.00 

.5 

10 

5 
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"cluster".  Initially  there  are  several  clusters.  In  the  example  the 
initial  clusters  are 

CL  = {2}  , C2  = {7}  , and  C.j  = {9}  . (6.8) 

Some  of  the  non-critical  activities  may  Influence  the  subnetwork's 
duration  when  not  all  of  the  activity  durations  are  at  their  mean 
values . 

Definition  2:  An  associate  of  a critical  activity  A Is  a non- 

critical  activity  which  is  on  the  longest  path  when  all  activity 

durations  are  set  to  their  mean  except  for  the  critical  activity  A 

which  has  its  duration  reduced  from  m to  max(m.  - Xs.,  0)  where  X 

A A A 

is  a nonnegative  parameter. 

Thus  the  associates  of  a critical  activity  A are  those  activities 
whose  effect  on  the  subnetwork's  duration  are  related  to  activity  A's 
duration.  In  the  example,  for  X = 1 the  associates  of  the  critical 
activities  2,  7,  and  9 can  be  determined  by  considering  Figures  E.4,  E.5, 
and  E.6  respectively.  In  Figure  E.4  the  longest  path  is  still  the  critical  path 
2,  7,  and  9,  so  that  activity  2 has  no  associates.  In  Figure  E.5  the 
longest  path  is  2,  5,  6,  and  9,  so  that  activities  5 and  6 are  the 
associates  of  activity  7.  In  Figure  E.6,  the  longest  path  is  2,  5 and 
8,  so  that  activities  5 and  8 are  associates  of  activity  9. 

The  associates  of  each  critical  activity  are  determined  and  added 
to  the  cluster  containing  that  critical  activity.  Thus,  in  the 
example  the  clusters  are  expanded  to 

- {2}  , C2  - {7,  5,  6}  , and  ■ {9,  5,  8}  . (6.9) 
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The  idea  underlying  the  clusters  is  that  they  should  be  sets  of 
activities  whose  effects  on  the  subnetwork's  duration  are  interrelated. 
Thus,  if  two  clusters  contain  any  activities  in  common,  the  activities 
in  these  two  clusters  all  have  an  interrelated  effect  on  the  subnet- 
work's duration,  so  the  two  clusters  are  combined  into  one  cluster. 

In  the  example  clusters  C2  and  both  contain  activity  5,  so  they 
are  combined.  The  resulting  clusters  are 

Cx  = {2}  and  C2  = {5,  6,  7,  8,  9}  . (6.10) 

A non-critical  activity  may  also  influence  the  subnetwork's 
duration  if  its  duration  exceeds  its  mean. 

Definition  3:  An  elimlnant  of  a non-critical  activity  A is  a 
critical  activity  which  is  not  on  the  longest  path  when  all  activity 
durations  are  set  to  their  means  except  for  activity  A which  has  its 
duration  increased  from  m^  to  m^  + 0s^  where  0 is  a nonnegative 
parameter. 

For  instance,  if  0 = 2,  the  eliminants  of  the  non-critical  activity  3 
in  the  example  can  be  determined  from  Figure  E.7.  There  the  longest 
path  is  1,  3,  6,  and  9,  so  that  the  eliminants  of  activity  3 are  the 
critical  activities  2 and  7.  In  the  example,  when  0=2,  none  of  the 
other  non-critical  activities  (1,  4,  5,  6,  and  8)  have  any  eliminants. 

For  a specified  value  of  0 the  eliminants  of  every  non-critical 
activity  are  determined.  If  a non-critical  activity  A has  eliminants, 
then  the  effect  of  A's  eliminants  on  the  subnetwork  duration  is  related 


to  A's  duration,  so  A is  added  to  every  cluster  containing  at  least  one 
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of  its  eliminants.  Thus  In  the  example  the  clusters  become 

CL  = {2,  3}  and  C2  = {3,  5,  6,  7,  8,  9}  . (6.11) 

After  the  clusters  have  been  expanded  on  the  basis  of  eliminants,. 
any  two  clusters  containing  common  elements  are  combined.  Therefore 
in  the  example,  and  C 2 are  combined  to  form  a single  cluster 

CL  = (2,  3,  5,  6,  7,  8,  9}  . (6.12) 

In  general,  after  the  determination  of  associates  and  eliminants 
for  specified  values  of  X and  0 and  the  subsequent  combining  of 
clusters,  there  may  still  be  more  than  one  cluster  and  some  of  the  non- 
critical  activities  may  not  be  in  any  cluster.  Usually  the  larger 
the  values  of  X and  0 the  greater  the  number  of  activities  in  the 
clusters  and  the  smaller  the  number  of  clusters.  The  clusters  that 
remain  represent  sets  of  activities  such  that  the  effects  on  the  sub- 
network's duration  of  the  activity  durations  for  the  activities  within 
a set  are  all  interrelated.  Activities  in  different  clusters  have 
roughly  independent  effects  on  the  subnetwork's  duration.  Activities 
not  in  any  cluster  have  essentially  no  effect  on  the  subnetwork's 
duration. 

The  consideration  of  critical  activities,  associates,  eliminants, 
and  the  formation  of  clusters  of  related  activities  is  obviously  only 
one  way  of  identifying  the  activities  which  have  an  important  effect 
on  the  subnetwork's  duration  and  their  interrelationships.  However, 
this  particular  procedure  does  have  the  following  desirable  properties: 


— 1 2 *> — 


Prop or ty  1 : 


Property  2: 


Property  3: 


If  ^2  > th‘?n  any  activity  which  would  be  an  associate 

of  a critical  activity  A when  A = A^  would  also  be  an 
associate  of  A when  A = A2. 

If  O2  > 0^,  then  any  critical  activity  which  would  be  an 
eliminant  of  a non-critical  activity  A when  0 = 0^  would 
also  be  an  eliminant  of  A when  0 = 02< 

For  any  fixed  value  of  X,  the  set  of  activities  in  the 
union  of  the  clusters  is  monotically  nondecreasing  as 


0 ->  ■». 


Property  4 : 
Property  5: 


Property  6; 


The  number  of  clusters  is  nonincreasing  as  0 + “. 

If  s^  > 0 for  a non-critical  activity  A,  then  there 

exists  0,  < “>  such  that  A will  have  some  eliminants  for 
A 

any  0 0 . 

Pi 

If  sA  > 0 for  every  non-critical  activity  A and 


0*  = max{0  ; A non-critical)  , 


then  for  0 >_  0*  all  activities  will  be  in  one  cluster. 
Most  of  these  properties  are  fairly  straightforward;  however. 
Property  6 requires  some  special  justification.  This  justification 
is  based  on  the  following  definition  and  theorem  which  is  proven  in 
Sielken,  Ringer,  Hartley,  and  Arseven  (1974). 


Definition  4:  In  any  acyclic  network  a bridge  over  any  two 
consecutive  arcs  Aj  and  ! ^ Is  any  arc  A^  such  that  all  paths  from  the 
source  to  the  sink  passing  through  A^  do  not  pass  through  either 
or  A^. 


-12  ft- 


Theorem  1:  In  any  acyclic  network  with  no  cut  vertices  there  is 
at  least  one  bridge  for  any  pair  of  consecutive  arcs. 

Property  5 implies  that  all  activities  will  belong  to  some  cluster  if 
0 >_  0*.  Now  consider  any  two  consecutive  activities  Aj  and  t<2  on  the 
critical  path.  Theorem  1 implies  that  there  is  a bridge  over  and 
say  A.^.  Since  the  critical  path  passes  through  Aj  and  A£,  A^ 
cannot  be  on  the  critical  path.  Therefore,  if  0 > 0*  >_  0^  , A^  and  A2 
will  be  eliminants  of  A.^  and  hence  will  be  in  the  same  cluster  as  A^. 
Thus,  since  each  cluster  contains  at  least  one  original  critical 
activity  and  any  two  consecutive  critical  path  activities  belong  to 
the  same  cluster  when  0 _>  6*,  there  is  only  one  cluster  when  0 >_  0* 
and  Property  6 is  established. 

6.3  Bounding  the  Discrete  Subnetwork  Duration  Distribution  F 

0.3.1  Upper  Bounds  on  F 

Suppose  that  the  cluster  formation  procedure  described  in  sub- 
section 6.2  has  been  carried  out  on  a subnetwork  for  some  specified 
values  of  0 and  X and  yielded  K clusters.  For  each  cluster  C so 

determined,  let  nc  be  the  number  of  activities  in  the  cluster  and 
nc  nc 

let  v = 1,  ...,  2 index  the  2 configurations  of  activity  durations 
corresponding  to 

(a)  the  duration  for  each  activity  A not  in  C being  equal  to 
its  lower  point  and 

(b)  the  durations  for  the  activities  in  C being  at  each  of  the 

nc 

2 possible  combinations  of  their  upper  and  lower  points. 


Then  define 
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F+(C;  t) 


2nc 


}: /vW 

v=l 


(6.13) 


where  p^,  t^,  and  I^Cty)  arc  defined  In  (6.1),  (6.4),  and  (6.5) 
respectively.  The  distribution  function  F+(C;  t)  Is  an  upper  bound 
on  F.  This  can  be  shown  by  considering  the  following: 


Theorem  2:  For  any  cluster  C,  any  t,  and  any  activity  A not 


In  C, 


F+(C  IJ  (A)  ; t)  < F*(C;  t)  . 


(For  the  proof  of  this  theorem,  see  Slelken,  Hartley,  and  Spoerl 
(1975).)  A straightforward  application  of  Theorem  2 yields 

Theorem  3:  For  any  two  clusters  and  and  any  t, 

F+(Ct  U C2;  t)  <■_  mln{F+(C1;  t),  H*(C2;  t)}  . 

If  C*  represents  the  set  (cluster)  of  all  activities  In  the  subnetwork, 
then 

F(t)  = F+(C*;  t)  . (6.14) 

Since  C Is  a subset  of  C*,  either  Theorem  2 or  Theorem  3 implies 

F+(C;  t)  > F(t)  (6.15) 

for  any  cluster  C. 

Theorems  2 and  3 can  also  be  used  to  define  some  tighter  upper 
bounds  on  the  subnetwork's  duration  distribution  than  F (C;  t). 


Historically,  two  different  improved  bounds  have  been  employed,  and 
both  have  been  Incorporated  Into  the  current  subnetwork  analysis 
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procedurc.  They  arc* 


*■■?"( t: ; 0,  X)  = f'(  u C • t) 
1=1 


(6.16) 


and 


F^(t;  0,  A)  = min  F+(C.;  t)  . (6.17) 
1<_1<K  L 

Let  F+(t;  9,  A)  denote  either  K*(t;  9,  A)  or  F*(t;  9,  A).  Then, 
since  Property  2 of  the  cluster  formation  procedure  implies  that  as  9 
increases  the  clusters  expand  or  are  combined,  Theorems  2 and  3 imply 
that  F+(t;  6,  A)  is  a nonincreasing  function  of  0 for  every  t and  any 
A.  Property  6 and  (6.16)  imply  that  for  0-^9* 


F+(t;  9,  A)  = F(t) 


(6.18) 


for  every  t and  any  A.  Also  (8.16)  along  with  the  definitions  (6.16) 
and  (6.17)  imply 

F+(t;  9,  A)  > F(t)  (6.19) 

for  all  t,  9,  and  A.  These  results  are  summarized  in  Theorem  6. 

Theorem  4:  (a)  F+(t;  0,  A)  is  a nonincreasing  function  of  9 

for  every  t and  any  A; 

(b)  there  exists  a finite  value  0*  such  that  9 _>  9* 
Implies  F+(t;  0,  A)  = F(t)  for  every  t and  A; 
and 

(c)  for  any  0,  A,  and  t 

F+(t;  0,  A)  > F(t)  . 


4 
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6.3.2  l.owo r Bounds  on  F 


Let  n denote  the  number  of  activities  in  cluster  C,  and  let 
c 

n n 

c c 

v = 1,  ....  2 index  the  2 configuration  of  activity  durations 
corresponding  to 

(a)  the  duration  for  each  activity  A not  in  the  cluster  being 
equal  to  its  upper  point  ti^,  and 

(b)  the  durations  for  activities  in  the  cluster  being  at  each 

n 

c 

of  the  2 possible  combinations  of  the  upper  and  lower 
points . 

Then  define  n 

2 c 

F~ (C ; t)  = £ PvW  (6.20) 

v=l 


where  p^,  tv>  and  I^(tv)  are  as  previously  defined.  Also  define 


and 


F (t;  0,  A)  = F ( U C ; t) 
i=l 


F?(t;  6,  A)  = max  F (C  ; t) 
l<i<K  1 


(6.21) 


(6.22) 


Using  an  argument  completely  analagous  to  that  used  to  prove 
Theorem  4,  Sielken,  Hartley,  and  Spoeri  (1975)  also  proved 


Theorem  5:  (a)  F (t;  0,  A)  is  a nondecrcas ing  function  of  0 

for  any  fixed  value  of  A; 

(b)  there  exists  a finite  value  0*  such  that  0 _>  0* 
implies 

F"(t;  0,  A)  = F (t) 
for  every  t and  any  A;  and 
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(c)  for  any  0,  X,  and  t 


F (t;  0,  A)  < F(t) 


(Again,  F (t;  9,  X)  is  a generic  term  used  to  denote  either  F^(t;  0,  X) 
or  F^(t;  0,  X).)  Thus,  F (t;  0,  X)  is  a valid  lower  hound  on  F. 


6.3.3  The  Tightness  of  the  Hounds  on  F 


That  the  F^-bounds  are  tighter  than  the  F2~bounds  can  be  seen  as 

follows.  The  evaluation  of  F_(t;  0,  X)  involves  the  determination  of 

1 K 

F (C  ; t)  for  each  i whereas  F (t;  0,  X)  = F ( U C , t).  Let  L be 

1 i=l  1 1 

the  length  of  the  longest  path  when 

1)  the  activities  in  are  at  a particular  configuration  of  their 
upper  and  lower  durations  and 

2)  all  activities  not  in  have  their  upper  durations. 

Let  Ly  be  the  length  of  the  longest  path  when 

1)  the  configuration  of  upper  and  lower  durations  for  the  activi- 
ties in  C.  is  the  same  as  in  the  determination  of  L. , 

1 K 

2)  the  activities  in  11  C.  - C.  are  at  any  combination  of  their 

J-l  i 

upper  and  lower  durations,  and 

K 

3)  all  activities  not  in  U C have  their  upper  durations. 

J-l  3 

Then  L^  21  by  since  every  activity  duration  in  the  determination  of  L^ 
is  greater  than  or  equal  to  its  corresponding  duration  in  the  determina- 
tion of  Ly.  Since  L^  Ly  for  any  configuration  of  upper  and  lower 


durations  for  the  activities  in  C^, 


F"<  UC;t)2  F"(C  ; t) 

J-l  3 


(6.23) 


and 
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K 

I’7(t;  o,  A)  = F"(  U C.;  t)  > max  F~(C  ; t)  = F~(t;  0,  A)  . (6  24) 

j=l  J 1<1<K 

A similar  argument  can  be  used  to  show 

K 

F (t;  0,  A)  = F ( U C ; t)  < min  F (C  ; t)  = F,(t;  0,  A)  . (6.25) 

j=l  J 1<1<K  1 

The  extent  of  the  differences  between  the  two  upper  bounds  and  two 
lower  bounds  depends  heavily  on  the  structure  of  the  particular  sub- 
network being  analyzed  and  is  a topic  that  should  be  considered  in 
future  empirical  studies. 


t 


6.4  Using  Sampling  to  Estimate  the  Upper  and  Lower  Bounds  on  F 


The  only  instance  In  which  upper  and  lower  bounds  on  F are 
computed  rather  than  F itself  is  when  it  is  computationally  imprac- 
tical to  determine  the  longest  path  for  each  of  the  2°  activity 
duration  configurations. 

For  given  0 and  A,  the  evaluation  of  F*(t;  0,  A)  only  requires 

nU 

the  determination  of  the  longest  path  for  each  of  2 activity  con- 
figurations where  n,.  is  the  number  of  activities  in  the  union  of  the 
K U 

clusters  C - U C,;  i.e., 

° j-1  J K 

ny  =*  E n . (6.26) 

j-1  J 

nl) 

The  evaluation  of  F^(t;  0,  A)  also  entails  only  2 longest  path 
determinations.  Likewise,  the  evaluation  of  F^ ( t ; 0,  A)  or  F2(t;  0,  A) 
only  requires  the  determination  of  the  longest  path  for  each  of 


K n 

n - Z 2 
3 1-1 


(6.27) 


nU 

activity  configurations.  Since  2 is  always  greater  than  or  equal  to 
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f 


V 


n^,  (t;  0,  X)  and  ( t ; 0,  X)  are  the  most  economical  bounds  to 

compute  in  terms  of  the  number  of  longest  path  determinations  required. 
However,  for  any  given  0 andX,F*(t;  0,  X)  and  F ^ ( t ; 0,  X)  are  tighter 
bounds  than  p2(t;  0,  X)  and  F2(t;  0,  X),  respectively.  Thus,  in  making 
the  choice  of  which  one  of  the  two  sets  of  bounds  to  compute,  there  is 
a trade-off  between  the  accuracy  of  the  bounds  and  the  effort  required 
to  compute  them. 

Since  the  cluster  formation  procedure  is  such  that  the  clusters 

expand  or  are  pooled  as  0 increases,  it  may  happen  that  for  particular 
nU  ni 

0 and  X,  2 and  2 for  some  i are  both  quite  large  even  though  0 is 
only  moderately  large.  In  this  case  It  again  becomes  impractical  to 
examine  all  the  required  activity  configurations  involved  in  determin- 
ing either  the  F^-bounds  or  the  F2“bounds.  Consequently,  if  for  the 

nU  ni 

specified  values  of  0 and  X,  2 (or  2 for  some  i,  as  the  case  may 
be)  is  excessively  large.  Subnetwork  Analysis  will  compute  estimates  of 
tile  corresponding  upper  and  lower  bounds  based  on  only  a sample  of  the 
total  number  of  possible  configurations.  The  actual  estimators  of 
F+(C;t)  or  F (C;t)  based  on  sample  values  Xj  < x2  < ...  < xm  for 
cluster  C Is 


r.(t) 


l PiW 

j«l 

at 

i p, 

i=i 


(0.28) 


where  p.  and  I (•)  are  as  in  (6.1)  and  (6.5)  respectively.  The  sample 
i t 

values  art  determined  by  finding  the  longest  path  for  each  member  of  a 
systematic  sample  of  the  possible  activity  duration  configurations  for 
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the  cluster.  However,  if  the  cluster  contains  more  than  31  activities, 
the  sample  values  are  determined  by  random  sampling.  The  estimator, 

C(t),  and  the  sampling  procedures  used  in  its  evaluation  are  developed 
and  discussed  in  Baker  and  Sit  Ikon  (1978). 

6.5  Estimating  F by  Extrapolating  Between  the  Upper  and  Lower  Bounds  of  F 

Theorems  4 and  5 of  subsection  6.3  imply  that  if  9^+^  i and 
X^+^  ^ X ^ for  all  i • 1,  ...,  I then 

F+(t;  0 , Xx)  > F+(t;  02,  X2)  > ...  > F+(t;  0j,  > F(t)  >_ 

F"(t;  0 x , X];)  > F ( t ; 0^,  X^)  > ...  > F_(t;  01,  X^  (6.29) 

for  all  t.  Thus,  if  F+(t;  0,  X)  and  F (t;  0,  X)  have  been  calculated 
for  I pairs  (0^  \±)  i = 1,  ...,  I (01+1  1 e1»  x1+1  1 then  F(t) 

may  be  estimated  by  extrapolating  between  F+(t;  9 ^ , X and 
F (t;  0j,  Xj).  As  currently  written.  Subnetwork  Analysis  calculates 
upper  and  lower  bounds  on  the  subnetwork's  approximate  duration 
distribution  for  a sequence  of  three  (0,  X)  pairs,  (0,  X)  =>  (1,  1), 

(2,  2),  (3,  2).  An  extrapolation  procedure  is  then  used  to  obtain  an 
estimate  of  F.  The  procedure  that  has  been  developed  for  this  purpose 
is  documented  in  Baker  and  Sielken  (1978). 

6.6  A Summary  of  the  Subnetwork  Analysis  Procedure 

The  following  is  a step-by-step  description  of  the  subnetwork 
analysis  procedure  in  summary  form.  Recall  that  the  objective  of 
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Subnetwork  Analysis  is  to  determine  an  "approxima t ion",  say  F,  to 
the  subnetwork's  duration  distribution. 

(a)  If  n = 1,  let  F be  the  actual  activity  duration  distribution 

* 

for  the  one  activity  comprising  the  subnetwork,  and  stop. 
Otherwise,  go  to  Step  b. 

(b)  Identify  the  two-point  discrete  distribution  (t-A,  u^,  P^,  Q^) 
for  every  activity  A in  the  subnetwork. 

(c)  Ascertain  the  user's  choice  of 

(1)  NMAX,  the  maximum  value  of  m for  which  all  2ra  activity 
duration  configurations  are  to  be  explicitly  considered, 

(2)  the  (0,  X)  pairs  to  be  considered  if  not  the  standard 
pairs  (1,  1),  (2,  2),  and  (3,  2), 

(3)  whether  the  bounds  on  F are  to  be  (F^,  F*)  or  (F^,  F^) 
if  n > NMAX,  and 

(4)  SAMSIZ,  the  sample  size  to  be  taken  if,  in  the  determina- 
tion of  bounds  on  F for  some  (0,  X)  pair,  the  number  of 

activity  configurations  in  the  cluster  being  considered 

-NMAX. 
exceeds  2 

(d)  If  the  number  of  activities  in  the  subnetwork  doesn’t  exceed 
NMAX,  compute  the  subnetwork's  discrete  duration  distribution, 
F,  explicitly,  let  F = F,  and  stop.  Otherwise,  go  to  Step  e. 

(e)  Do  Steps  f - i for  every  (0,  X)  pair.  Then  go  to  Step  j. 

(f)  Form  the  clusters  corresponding  to  (0,  X).  If  the  bounds  are 
to  be  (F^,  F^) , go  to  Step  g.  If  the  bounds  are  to  be 

(F2 1 F2^’  go  to  Step  h' 


4> 
1 4 


■-? 
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(g)  Form  the  union  of  the  clusters  and  determine  ny.  If 

ny  £ NMAX,  evaluate  the  bounds  (F^,  F+)  on  the  basis  of  all 
nii 

2 u activity  duration  configurations.  If  ny  > NMAX,  take  a 

nU 

sample  of  size  SAMSIZ  from  the  2 activity  duration  config- 
urations and  form  both  F^  and  F+  on  the  basis  of  this  single 
sample.  Go  to  Step  e. 

(h)  Do  the  following  for  each  cluster,  C^.  Let  n^  denote  the 

number  of  activities  in  the  cluster.  If  n^  _<  NMAX,  evaluate 

+ "i 

F (C^;  t)  and  F (C^;  t)  on  the  basis  of  all  2 activity 

duration  configurations.  If  n^  > NMAX,  take  a sample  of  size 
ni 

SAMSIZ  from  the  2 activity  duration  configurations  and  form 
both  F (C^;  t)  and  F+(C^;  t)  on  the  basis  of  this  single 
sample. 

(i)  Form  and  F+  from  the  F (C^;  t)'s  and  F+(C^;  t)'s 
respectively.  Go  to  Step  e. 

(j)  Form  F by  extrapolating  the  (F  , F+)  bounds  determined  for 
the  (0,  A)  pairs.  Stop. 

This  process  is  repeated  for  every  subnetwork  in  the  simplified 


project  network. 


7.  DECOMI*:  Decomposition 


The  objective  of  Deocmposit ion  is  to  partition  the  simplified 
project  network  into  the  simplest  possible  subnetworks  subject  to 
the  constaint  that  the  subnetwork  duration  distributions  can  be 
easily  combined  to  yield  the  project  completion  time  distribution. 

The  simplified  project  network  can  be  suitably  partitioned 
using  the  following  iterative  procedure.  First  the  simplified 
network  is  searched  for  subnetworks  that  begin  at  the  beginning  of 
the  simplified  network,  end  at  the  end  of  the  simplified  network, 
and  are  in  parallel.  Each  parallel  subnetwork  is  then  subdivided 
into  a sequence  of  smaller  subnetworks  that  are  in  series.  Each 
series  subnetwork  is  then  searched  for  parallel  subnetworks. 

The  partitioning  into  parallel  and  series  subnetworks  continues  until 
no  subnetwork  can  be  further  partitioned.  This  iterative  partitioning 
procedure  is  illustrated  in  Figure  K.8. 

As  in  Simplification  this  partitioning  of  the  simplified  project 
network  into  subnetworks  could  have  also  included  subnetwork  confi- 
gurations of  the  Wheatstone  Bridge,  Double  Wheatstone  Bridge,  and 
Criss-Cross  forms;  however,  the  apparent  frequency  of  these  subnetwork 
configurations  does  not  seem  to  justify  the  additional  programming 
effort . 

Since  Steps  1 and  2 do  not  change  the  structure  of  the  simplified 
project  network  and  the  partitioning  of  that  network  does  not  depend 
on  the  activity  duration  distributions.  Decomposition  is  only  done 
once  and  is  really  skipped  when  the  general  iterative  algorithm  returns 
to  Step  3.  Decomposition  is  documented  in  Sielken  and  Fisher  (197b)* 


Partitioning  into  Parallel  Subnetworks 


*The  arcs  A*,  M*,  R*,  and  S*  each  represent  non-simplif table  subnetworks  and 
not  single  activities.  Otherwise  this  "Simplified  Project  Network"  could  be 
further  simplified. 


] 
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Figure  K. 8 (Continued) 


Partitioning  into  Series  Subnetworks 
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8.  SYNTH:  Synthesis 

The  project's  approximate  completion  time  distribution  can  be 
determined  by  combining  the  approximate  subnetwork  duration  distri- 
butions. When  the  project  network  is  decomposed  in  Step  3,  the 
result  is  a network  of  subnetworks  with  any  two  connected  subnetworks 
being  either  in  series  or  in  parallel.  Let  SUBj,  and  SUB2  be  any  two 
such  subnetworks,  and  let  the  corresponding  approximate  subnetwork 
duration  distributions  be  Fj  and  Fj.  If  SUBj  and  SUB2  are  in  series, 
then  the  approximate  duration  distribution  for  SUB^  and  SUB2  combined 
18 

F(t)  = l F2(t  - sjf^s)  - l Fj  (t  - s)f2(s)  (8.1) 

s<t  s<t 

A A 

where  f}  and  f2  are  the  discrete  probability  density  functions 
corresponding  to  Fj  and  F2  respectively.  If  SUBj  and  SUB2  are  in 
parallel,  then  the  approximate  duration  distribution  for  SUBj  and 
SUB2  combined  is 

F(t)  = Fj(t)  • F2(t).  (8.2) 

By  repeated] y combining  subnetworks  that  are  connected  either  in 
series  or  in  parallel,  the  project's  approximate  completion  time 
distribtuion  is  obtained. 

Once  the  project's  approximate  completion  time  distribution  has 
been  determined,  the  project's  approximate  mean  completion  time,  T, 
can  be  calculated  and  compared  with  the  project  deadline.  If  the 
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project  manager  feels  that  T is  sufficiently  close  to  the  project 
dealine,  say  within  5%,  then  the  project  schedule  just  determined 
in  Step  1 is  considered  "optimal".  Otherwise,  a new  project 
schedule  must  be  determined  by  returning  to  Step  ) with  a new  TARGET 
TIME. 

Step  1 only  requires  that  the  project  would  be  completed  by 
TARGET  TIME  if  each  activity's  duration  was  exactly  its  mean  duration. 

On  the  other  hand,  T takes  into  consideration  the  random  nature  of 
an  activity's  duration  and  hence  will  generally  exceed  TARGET  TIME. 

The  difficulty  is  in  deciding  how  much  less  than  the  project 
deadline  should  TARGE  TIME  be  in  order  that  the  corresponding  T be 
sufficiently  close  to  the  project  deadline.  The  algorithm  iteratively 
updates  its  estimate  of  this  TARGET  TIME  by 

New  TARGET  TIME  = Old  TARGET  TIME*(Project  Deadline/T) . 

The  initial  TARGET  TIME  would  usually  be  the  project  deadline  but 
could  be  chosen  somewhat  less  than  the  project  deadline.  A typical 
sequence  of  TARGET  TIMEs  and  T's  for  a project  deadline  of  400  might 
be 

TARGET  TIME  = 400,  T = 500, 

TARGET  TIME  = 320,  T * 360, 

TARGET  TIME  = 356,  T = 408. 

t 

Since  the  algorithm  approximates  the  project's  entire  completion 


time  distribution  for  each  tentative  schedule  determined  in  Step  1 
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the  quantity  T in  the  above  discussion  could  just  as  easily  be  a 
specified  percentile  of  the  project  completion  time  distribution. 

For  example,  the  project  manager  might  wish  a minimum  cost  project 
schedule  such  that  the  probability  of  the  project  being  completed 
before  the  project  deadline  is  .90.  In  this  case,  the  new  TARGET 
TIMEs  would  be  determined  with  T being  the  90th  percentile  of  the 
project's  approximate  completion  time  distribution  instead  of 
the  project's  approximate  mean  completion  time. 

Of  course,  each  time  Steps  1-5  are  performed  a new  T,  approximate 
project  completion  time  distribtion,  and  project  cost  are  generated. 
This  sequence  of  T's  and  project  costs  supplements  the  deterministic 
project  cost  curve  in  desribing  the  impact  of  the  project  deadline 
on  the  project  cost. 
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Appendix  F 

Structure  and  Contents  of  the  Temporary  Data  Sets 

The  project  scheduling  system  requires  eight  temporary  data  sets  which 
it  uses  to  pass  information  from  one  program  to  the  next.  In  the  documen- 
tation, these  data  sets  are  called  FILEO,  FILF.l , FILE2,  FILE7.  The 

particular  physical  devices  (tape,  disk,  etc.)  which  the  file  names 
represent  are  determined  at  execution  time  by  the  program's  associated 
JCL-statements  (Job  Control  Language  statements)  and  by  the  user-defined  unit 
numbers.  The  unit  numbers  corresponding  to  the  eight  data  sets  are  defined 
symbolically  in  the  FORTRAN  code  as  FO,  FI,  F2,  ....  F7,  respectively.  The 
particular  values  of  the  variables  FO,  ....  F7  are  determined  by  DATA- 
statements  which  are  inserted  at  the  beginning  of  each  program  (see  Appendix 
0 for  an  example).  Currently,  FO  = 8,  FI  = 9,  F2  = 10,  F3  = 11,  F4  = 12, 

F5  = 13,  F6  = 14,  and  F7  = 15.  The  particular  form  of  the  JCL-statements 
determine  whether  the  unit  numbers  reference,  tape,  disk,  or  drum.  The 
exact  form  of  the  JCL  is  highly  dependent  on  .the  particular  computer 
installation  at  which  the  system  is  being  run.  An  example  of  the  JCL 
used  at  Texas  A&M  is  given  in  Appendix  G. 

The  structure  and  contents  of  each  of  the  data  sets  is  outlined  in 
the  subsections  that  follow.  In  these  subsections,  variable  names  used 
In  the  input  instructions  (Appendix  A)  are  not  redefined.  Any  new 
variable  names  are  defined  when  they  are  first  used. 

i 
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1.  FILEO 

Written  by:  MAIN (A, B) , DPS(C);  i.e.,  parts  A and  B of  FILEO  are 
written  by  MAIN  and  part  C is  written  by  DPS 
Modified  by:  none 

Used  by:  DPS(A),  DSR(A,C),  SIMP(A.B),  MODS  IMP (A, B) : i.e.,  DPS  uses 
only  part  A of  FILEO,  etc. 

A.  Record  I : (4  * MMAX  + 5)  x 4 bytes 

1.  NAC’T;  (Integer,  1*4) 

2.  NODES:  (1*4) 

3.  NSRCE ; (I  * 4) 

4.  NS INK;  (I  * 4) 

5.  LNODEN ; (1*4) 

6.  S(MMAC,4);  (two-dimensional  array  of  I * 4 integers) 

For  I = 1 , . . . , NACT , 

S(I,L)  = the  number  of  the  I-th  activity  input,  NA(I) 
S(I,2)  = the  I-th  activity's  origin  node,  NODEO(I) 
S(I,3)  = the  I-th  activity's  terminal  node,  NODET(I) 
S(I,4)  = the  number  of  times  and  costs  for  the  I-th 
activity,  NCT(I) 

For  I > NACT, 

S(I,1)  = S ( 1 , 2 ) = S(1 ,3)  = S(1 ,4)  £ 0 
Currently,  MMAX  = maximum  number  of  activites  in  the 
project  network  = 1000. 

B.  Record  1:  4 bytes 

1.  JMAT ; (I  * 4) 
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K cn.nl  I : (NBREAK  + I ) * 2 bytes 

1.  NBREAK;  (Half-word  Integer,  1*2) 

NBREAK  = the  number  of  times  and  costs  needed  to 

specify  the  entire  project's  time-cost  curve 

2.  BREAK (NBREAK) ; (a  one-dimensional  array  of  T * 2 Integers) 

For  I - 1,  ....  NBREAK, 

BREAK(I)  = the  I-th  largest  time  In  the  entire  project's 
time-cost  curve 
Currently,  NBREAK  < 3000. 


-145- 


2.  FILE1 

Written  by:  MAIN (A) 

Modified  by:  none 
Used  by:  DPS (A),  DSR(A) 

A.  Record  1:  8 bytes 

1.  TEST1;  (I  * 2) 

2.  TEST2;  (I  * 2) 

3.  TEST3;  (I  * 2) 

TEST3  *=  a computation  option  in  DPS  that  is  defined 
internally  by  MAIN  = 0 

4.  STIME;  (I  * 2) 

STIME  = a parameter  associated  with  TEST3  which  is  also 
defined  internally  by  MAIN  = 0 


The  remaining  portion  of  FILE1  consists  of  one  "block"  of  records  for 
each  original  activity. 

For  I - 1,  NACT 

Record  (I  + 1)  . 1:  (2  x NCT(I))  x 2 bytes 

1.  TIME(l) ; (I  * 2) 

2.  TIME(2) ; (I  * 2) 

NCT(I) . TIME(NCT(I));  (I  * 2) 

NCT(I)  + 1.  C0ST(1) ; (I  * 2) 

NCT(I)  + 2.  COST (2) ; (I  * 2) 


NCT(I)  x 2.  COST (NCT ( I) ) ; (I  * 2) 
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For  .1  = 

1,  .... 

NCT(I)  - 

1 

Record 

(I  + 1). 

(.1  + D; 

20  bytes 

1. 

IDIST ; 

(I  * 4) 

2. 

PARM1; 

(Real,  R 

* 4) 

3. 

PARM2 ; 

(R  * 4) 

4. 

PARM3 ; 

(R  * 4) 

5. 

PARM4 ; 

(R  * M 

ID1ST,  PARM1 , PARM2 , PARM3 , and  PARM4  define  the 
distribution  (and  its  parameters)  of  the  I-th 
activity  on  the  J-th  segment  of  the  time-cost  curve 


j.  j.  x 
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3.  FILE2 

Written  by:  DSR(A) 

Modified  by:  DSR(A) 

Used  by:  MODS  IMP (A) 

A.  One  record  for  each  original  activity 
For  I = 1,  ....  NACT, 

Record  I : 20  bytes 

1.  JDIST;  (I  * 4) 

JDIST  = the  distributional  type  of  the  I-th  activity 

I 

for  the  current  TARGET  TIME,  TT 

2.  TPARM1 ; (R  * 4) 

3.  TPARM2 ; (R  * 4) 

4.  TPARM3 ; (R  * 4) 

5.  TPARM4 ; (R  * 4) 

TPARM1 , TPARM2 , TPARM3,  and  TPARM4  are  the  I-th  activity's 
distributional  parameters  for  the  current  TARGET  TIME,  TT 
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4.  FILE3 

Written  by:  MAIN (A) , SIMP(B) 

Modified  by:  DECOMP(C) 

Used  by:  DECOMP(B),  SUBNET(A,C) 

A.  Record  1:  44  bytes 

1.  IFDF ; (I  * 4) 

2.  NMAX ; (I  * 4) 

3.  I POOL;  (I  * 4) 

4.  SAMSIZ;  (I  * 4) 

5.  THELAM;  (I  * 4) 

6.  THETA(l) ; (R  * 4) 

7.  THETA(2) ; (R  * 4) 

8.  THETA (3) ; (R  * 4) 

9.  LAMBDA (1) ; (R  * 4) 

10.  LAMBDA ( 2 ) ; (R  * 4) 

11.  LAMBDA (3) ; (R  * 4) 

B.  Record  1:  (4  x MMAX  + 5)  x 4 bytes 

This  record  is  an  exact  duplicate  of  FILEO  - part  A except  that 
the  information  refers  to  the  simplified  project  network  rather 
than  the  original  project  network.  This  record  is  destroyed  by 
the  execution  of  DECOMP  and  is  replaced  by  part  C. 

C.  Two  records  for  each  subnetwork  identified  by  DECOMP 

For  K ■ 1,  number  of  subnetworks, 

Record  K.l:  4 bytes 


1.  M - th<  number  of  activities  in  the  K-th  subnetwork 
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Record  K.2:  (3  x M + 2)  * 4 bytes 

1.  NSUB;  (I  * 4) 

NSUB  = the  number  of  tfie  K-th  subnetwork 

2.  NMM;  (I  * 4) 

NMM  = the  number  of  nodes  in  the  K-th  subnetwork 

3.  NET(3,M);  (a  two-dimensional  array  of  I * 4 integers) 

For  I = 1 M, 

NET(1,I)  = the  origin  node  of  the  I-th  activity  in  the 
K-th  subnetwork 

NET(2,I)  = the  terminal  node  of  the  I-th  activity  in 
the  K-th  subnetwork 

NET(3,I)  = the  number  assigned  in  the  simplified  project 
network  to  the  K-th  subnetwork's  I-th  activity 


« 
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5.  FILE4 

Written  by:  MAIN (A) , MODSIMP(B) 

Modified  by:  MODSIMP(B),  SYNTH  (A)  , READFIL(A) 

Used  by:  DSR(A),  SUBNET (B) , SYNTH (A) 

A.  Record  1:  12  bytes 

1.  NCYC ; (I  * 4) 

NCYC  = the  number  of  the  current  iteration 

2.  TT;  (R  * 4) 

TT  = TARGET  TIME  for  the  current  iteration 

3.  NFLAG;  (I  * 4) 

NFLAG  = internally  defined  parameter  used  by  DSR  : 0 or  1 

B.  Record  1:  4 bytes 

1.  JNACT ; (I  * 4) 

JNACT  = the  number  of  activities  in  the  simplified 
project  network 

For  I = 1,  ....  JNACT, 

Record  I + 1:  96  bytes 

1.  CDFJ(12);(a  one-dimenstional  array  of  double  word  reals,  R * 8) 

CDFJ(l),  ...,  CDFJ (12)  = F_1 ( . 0) , F_1(.05),  F_1(.15), 

F_1  ( . 25) F-1  ( . 95)  , 

F ^(1.00)  where  F is  the  cumu- 
lative distribution  function  for 


the  l-th  activity  in  the 
simplified  project  network. 


« 
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6.  FILE5 

Written  by:  MAIN (A) , DECOMP(B),  SUBNET(C) 

Modified  by:  SUBNET(C) 

Used  by:  SYNTH(A,B,C) 

A.  Record  1:  16  bytes 

1.  I OPT;  (I  * 4) 

2.  NT;  (I  * 4) 

3.  PCT ; (R  * 4) 

4.  PD;  (R  * 4) 

B.  Record  1:  4 bytes 

1.  NOINS;  (I  * 4) 

NOINS  = the  number  of  instructions  generated  by  DECOMP 
for  use  in  the  synthesis  process 
Record  2;  (27  x MAXINS)  x 4 bytes 

1.  INSNO (MAXINS) ; (a  one-dimension  array  of  I * 4 integers) 

2.  ISUBNT (MAXINS) ; ( a one-dimension  array  of  I * 4 integers) 

3.  ISORP (MAXINS) ; (a  one-dimension  array  of  I * 4 integers) 

4.  JSUBNT (MAXINS , 24);  (a  two-dimensional  array  of  I * 4 integers) 

For  I = 1,  . . . , NOINS, 

INSNO(I)  = the  number  of  the  I-th  instruction 
ISUBNT(I)  = the  number  of  the  subnetwork  resulting  from 
the  I-th  instruction 

ISORP(I)  = indicates  whether  the  subnetworks  involved 

in  the  I-th  instruction  are  in  parallel  or  series 
ISORP(l)  = 0 implies  the  subnetworks  are  in 


series 
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ISORP(T)  = 1 implies  the  subnetworks  are  in 
parallel 

For  J = 1 , ....  24 , 

JSUBNT(I,J)  = the  J-th  subnetwork  associated  with  the  I-th 
instruction 

C.  One  record  for  each  subnetwork  identified  by  DECOMP  i 

’ 

For  K = 1,  number  of  subnetworks, 

Record  K:  (2  x JEDF  + 2)  x 4 bytes 

1.  ID;  (1*4)  \ 

ID  = the  number  of  the  K-th  subnetwork 

2.  JEDF;  (I  * 4) 

JEDF  = the  number  of  subdivisions  in  the  distribution 
function  for  the  K-th  subnetwork 

3.  XFD(JEDF,2);  (a  two-dimensional  array  of  R * 4 reals) 

For  J = 1 , . . . , JEDF, 

XFD(J,1)  = the  abscissa  for  the  J-th  tabled  value  of  the 
cumulative  distribution  function  for  the  K-th 
subnetwork 

XFD(J,2)  = the  ordinate  for  the  J-th  tabled  value  of  the 
cumulative  distribution  function  for  the  K-th 
subnetwork 


-153- 


7.  FILE6 

Written  by:  DPS(A) 

Modified  by:  none 
Used  by:  DSR(A) 

A.  One  record  for  each  segment  of  the  entire  project's  time-cost  curve 
For  K = 1,  . . . , NBREAK , 

Record  K:  4 x NACT  bytes 

1.  XI)(NACT,2);  (a  two-dimensional  array  of  I * 2 integers) 

For  1=1,  ....  NACT 

XD (I , 1)  = the  direction  (sign)  of  the  change  of  the 

I-th  activity's  duration  on  the  K-th  function 
segment,  i.e.  +1,  0,  -1 

XD(I,2)  = the  maximum  duration  of  the  I-th  activity  on 
the  K-th  function  segment 
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8.  FILE7 

Written  by:  SIMP(A) 

Modified  by:  none 
Used  by:  MODSIMP(A) 

A.  One  record  for  each  activity  simplification  operation  identified 
by  SIMP 

For  K = 1,  ....  number  of  simplification  operations. 

Record  K:  96  bytes 

1.  LIST(24) ; (a  one-dimensional  array  of  I * 4 integers) 

For  J = 1 , ....  24 , 

LIST(.J)  = a parameter  which  indent  if  ies  either  the 

configuration  or  an  activity  involved  in  the 
K-th  simplification  operation 


Contents  of  the  Temporary  Files  at  the  Completion  of  Each  Program 
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Files  Referenced  by  Each  Program 
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Appendix  G 

Job  Control  Language  for  Texas  A&M  University  Computer  Facilities 

1.  Execution  using  FORTRAN  source  decks 

A listing  of  the  JCL  used  to  generate  the  sample  output  of  Appendix  C 
is  given  below.  During  the  first  iteration  each  program  in  the  sequence 
is  compiled  using  the  IBM  FORTRAN  G Compile  and  the  load  module  which 
ultimately  results  is  stored  on  the  partitioned  data  set  named 
USER. STAT. SIELKEN. PERT.  Thus,  on  subsequent  iterations  the  compile  and 
link-edit  steps  are  skipped. 


//JObt_IB  LlO  DSNAME=USER.STAT. SIELKEN. PERT. DISP=SHR 
//MAIN  EXEC  FOSTGCL ,REGI0N=256k 
//F JRT.SYSIN  DD  * 

INSERT  FORTRAN  COURCE  DECK  FCP  MAIN  HERE 

VbS  ) 
VBS  ) 
VBS  > 
VBS  ) 
VBS  ) 
VBS  » 
VBS  ) 
VBS  > 

INSERT  DATA  CARDS  FOR  MAIN  FERE 

//OPS  EXEC  FORTGCL.REGlON=3S4K 
//F JRT.SYSIN  DD  * 


//i_KEO.  SrSLMOD  DD  OSN  = U SE  R . S T A T • S I EL  K E N . PERT  ( M A I N ) . D I SP  = SHR 
//MAIN  cXcC  PGM-MA IN.REGION= 320K ,CONC= ( A ,LT » 

//FTjof JOI  DD  SYSOUT=A 

//FTjdFOOl  DD  UNI T = S Y SD A . D SN  = 6£.F  I L E 0 . D l SF  = < NEK  . PASS) . 

//  SPACE  = < 32000,1  100.25)  ) , DCB = ( L BE CL  = 3 1 3 2 . BL K S I ZE  = 3 1 56 . RECF M = 

//FTOVFJJI  DD  UNIT=SYSDA,0SN=CSF ILE I»OISP=(NEK« PASS ) . 

//  SPACE=<  32000.1  100.25)) , DCB= C L RE CL  = 3 1 5 2 . BL K S I ZE= 3 1 56 . R ECF M = 

//FTloFOUl  DD  UNI T = S V SD A . DSN= & t F ILF  2 .01 SP  = < NEK. PASS) , 

//  SPACE =(  32 000, ( 100.25)). DC8= ILBE CL  = 3152. BLKSIZE= 31 S6.RECFM= 

//FT11F001  DD  UNI T=SYSDA.DSN=e&F ILE 3.DI SP=I NEM.PASS) . 

//  SPACE = I 3200  0.1  10  0.25)  ) . DCB= I LRE CL = 3 1 52 . BL K S I ZE  = 3 1 56 , RECF M = 

//FT12F001  DD  UN  I T= S YSD A , DSN= t CF I L E 4 , D l SP  = < NEK . PA SS ) , 

//  SPACE =<  320  00.1  100,25)  I . DC  8=  < L RE CL  = 3 l 5 2 . BLK S I ZE= 3 1 56 , RECFM  = 

//FT1JF001  DO  UNI T= S YSD A , DSN= &CF I L E 5 . D I SP = C NEK . PASS) . 

//  SPACE  = < 32000, ( 100,25)  ) «OCB=(LRECL=3152» BLKS I ZE  = 3 1 56 . RECFM  = 

//FT14F001  DD  UN  I T= SYSDA .DSN=tfi.F I LE 6 . 0 I SP= ( NEK , PASS ) , 

//  SPACE =< 32000. ( 100.25)  ) , DCB= < L RE C L = 3 1 5 2 . BLK S I ZE  = 3 1 56 . R ECFM  = 

//FT 1SFJ01  DD  UNI T=SYSDA ,DSN=6tF ILE? .0 ISP= (NEK.  PASS)  , 

//  jPACE  = ( 32  000. ( 100.25)  > . DCB= < L B ECL = 3 1 £2 . BL K S I ZE= 3 1 S6 , R ECF M = 

//FTjSFOol  DD  * 


INSERT  FORTRAN  COURCE  DECK  FCB  DPS  HERE 
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//LKLD.oYSlMOD  od  dsn=user.stat. s i elkf k. pert < dps) . oi sp=shr 
//OPs  cxtc  PGM  = OPS .REGI QN  = S1 2K ,COND  = < 4 ,LT  ) 

//FTyoFOUl  UD  S Y SOUT  = A 

//FTOdFJJl  OO  UNI  T SYSDA . ObN-fctf  II E 0 ,D  I SP  - (OLD, PASS ) 

//FTJVFJJ1  DO  UN  IT-  S Y Sl>A  tDSN-fctF  ILF  1 »OISP=!  OLD  * PASS  ) 

//FTI4F0O1  U U UNI  T - S YSOA .OSN-ttF  I L E6  ,D I SP  = I OLD. PASS ) 

✓ /DSW  EXEC  FOR TGCL .REG  I ON-256K 
//FQkT.SYSIN  DO  * 

INSERT  FORTRAN  COURCE  DECK  FCR  OSR  HERE 

//LKED.SYSLMQD  OO  DSN  = U SER • ST A T. S I ELK E N . PERT < D SR ) » D I SP=SHR 
//DSR  EXEC  PGM=DSR .REGI 0N=256K ,COND=( 4 ,LT ) 

//FT  06F  U 0 1 DD  SYSOUT=A 

//FT03F001  DD  UN I T = SY SDA . DSN= & &F I LE C , D I SP= C OLD , PA SS ) 

//FT  QVFOO 1 DO  UN I T= S YSD A , DSN=£G F I LE  1 . D l SP= ( OLD . P AS S > 

//FTIUFOGI  DO  UNIT=SYSDA,DSN=E.£.FILE2,DISP=(OLD,PASS) 

//FT12FJ01  DO  UNIT=SYSDA.DSN=&6FILE4.DISP=(0LD,PASS> 

//FT  1 4FUG  1 OD  UNIT=SYSDA.DSN=££FILE6.DlSF=(OLD,PASS) 

//SIMP  EXEC  FORTGCL. REG ION=320K 
//FURT.SYSIN  OO  * 

INSERT  FORTRAN  COURCE  DECK  FCR  SIMP  HERE 

//LKeO.SYSi_MOD  DD  D SN  = USER . ST A T . S I E L K E N • P ER T ( S I MP ) . D I SP= SHR 
//SIMP  cXEC  PGM=SIMP.REGION=256K.COND=<4  ,IT ) 

//FT06FU01  DD  S YSOUT  = A 

//F  T OdF  OO  1 DD  UNIT  = S V SD  A »DSN=&E,F  ILE  0 » D I SP=  ( OLD. PASS  ) 

//FTllFoul  DD  UNI T= S YSDA . DSN=&£F I L E 3 , D I SP  = I OLD , PA SS ) 

//FT  1 oFiIO  1 DO  UNIT  = SYSDA,DSN-££FILE7.DISP  = (OLD,PASS) 

//MJDSIMP  EXEC  FORTGCL .REG I0N=256K 
//FURT.SYSIN  OD  * 

INSERT  FORTRAN  COURCE  DECK  FCR  MCDSIMP  HERE 

//eKED.SYSLMOD  DD  DSN  = USE R . ST A T . S I EL K E K • PE RT ( MODS I MP ) , D I SP  = SHR 
//MODSIMP  EXEC  PGM  = MOD  SIMP.REGION~320K , C OND  = ( A.LT) 

//FTD6F001  DD  SYSOUT=A 

//FTO8FO01  DD  UN I T = S Y SD A , DSN= CtF I L E C . O I SP  = < OLD . P A SS ) 

//FTlOFOOl  DD  UNI T=SYSDA»  DSN=£  t F ILE2»OISP=(OLD.PASS) 

//FT12F0U1  DO  UNIT  = 5YSDA.DSN=&C.F  ILEA,  DISP=(OLD.  PASS) 

//FT15F0U1  DO  UNIT=SYSDA.DSN=t£F I L E 7 . D I SP  = ( OL  D , P A SS  > 

//DECUMP  eXEC  FORTGCL . REGI0N-256K 
//FURT.SYSIN  DD  * 

INSERT  FORTRAN  COURCE  OECK  FCR  OECOMP  HERE 

//LKuD.SYSLMOD  DD  DSN  = U SER . ST A T. S I ELK E K . PE RT ( OECOMP ) , D I SP= SHR 
//DECOMP  c.XcC  PGM=DECUMP,REGION=320K,CCND=(4,LT) 

//FTOoFOQl  DD  SYSOUT=A 

//FT11FW01  DD  UNI T = SYSD A , DSN=  &&F ILE  3 ,DI SP  = ( OLD.PASS ) 

//FTI3FU01  DD  UNI T= S Y SDA , DSN=£&F I LE S , D I SP  = C OLD , P ASS > 

//SUBNET  EXEC  FORTGCL, REGION=256K 
//FOR  T • SYS I N DO  * 

INSERT  FORTRAN  COURCE  OECK  FCR  SUBNET  HERE 


//LKtD. SYSLMOD  DD  D SN  = USER • ST A T . S I EL KE K • PER T ( SUBNE T ) , D I SP= SHR 
//SUBNET  EXEC  PGM  = SUBNE T . REG  I 0N  = 44 8 K , C CNO = ( 4 . L T ) 

//FTU6FJ0I  DD  SYSOUT=A 
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✓✓FTllFuOl  OO  UNI T=SYSDA.DSN=t&F ILE 3.DI SP=( OLD.PASS) 

✓✓FTI2F0J1  OD  UNI  T=SYSDA  ,DSN=t&F  ILEA  ,D  I SP  = ( OLD. PASS  ) 

✓/FTIJF001  DD  UNI  T = SYSDA,DSN=C6.F  ILE5  .Dl  SP  = < OLD. PASS) 

✓/SYNTH  EXEC  F0RTGCL.REGI0N=256K 
✓✓FOkT.SYSIN  DD  * 

INSERT  FORTRAN  COURCE  DECK  FCR  SYNTH  HERE 

✓ /LK.C.U.  sY  SLMOD  DO  D SN  = U SER  . S T A T • S I E L K E N . P E F T ( S Y NTH  ) . D I SP  = SHR 
✓/SYNTH  EXEC  PGM=SYNTH.REG10N=256K.CCFC=<4,LT) 

✓ ✓FTjof JO  1 DD  S YSOUT  = A 

✓✓FTI2FJ01  DD  UNI T-SYSDA. DSN=ttF ILE4,DISP=( OLD. PASS) 

✓ ✓FT13FD01  DD  UN I T= SY SD A . DSN= S&F I L E 5 , C I SF= { OLD . P A SS ) 

✓ ✓D3W  EXcC  PGM=DSR  ,REGI  0N  = 256K.C0N0M  4 ,LT  ) 

✓ ✓FT  OOF JU 1 DD  S YSOUT  = A 

✓ ✓F  T JtJFOO  1 00  UNI  T = SYSOA.  DSN=ttF  ILEO.DISP  = IOLD»PASS) 

✓ ✓FTU9FU01  DD  UN I T = SV SD A . OSN= &&F I LE  1 . D I SP= C OLD , P A SS ) 

✓ ✓FT  1 JF  JO  1 DD  UNI T = SVSDA,DSN=&&F ILE  2.DI SP  = < OLD. PASS) 

✓✓FT12F001  DD  UN I T= S Y SO A . DSN= SCF I L E 4 , D I SP  = < OLD . PA SS ) 

✓✓FT14F001  DD  UNI T=SYSDA ,DSN=ttF ILE6 .DI SP=(OLD.PASS) 

✓ ✓M  JO  SIMP  cXEC  PGM  = MOO  SIMP.REGI ON—  320  K.C0ND=<4,LT) 

✓✓FTU6F00I  DD  SYSOUT=A 

✓✓FTOaFOOl  DD  UNIT=SYSDA.DSN=&SFILEC.DISF=<OLD*PASS) 

✓ ✓FT  1 OF  JO  1 DD  UNI T = SY  SD  A.DSN=t&FILE2.DISP=(0LD.PASS) 

✓ ✓FT12F001  DD  UN  I T = S YSD  A . DSN=  t E-F  I L E 4 , D I SP=  < OLD  . PASS  > 

✓ ✓FTISF001  DO  UNI T= SY SD A , DSN=fc &F T L E 7 , 0 I SP= < OLD. PASS ) 

✓✓SUdNET  EXEC  PGM- SUBNE T , REG  I 0N  = 44 8 K , C CNC= < 4 . L T ) 

✓✓FT06F001  DD  SYSOUT=A 

✓ ✓FT11F001  DD  UNIT  = SYSDA.DSN  = 6.6.F!LE3,DISP  = (0LD,PASS) 

✓ ✓FT 12F001  DD  UN  I T= S Y SD A . DSN= t&F I L E 4 , D I SP  = ( OLD . PASS ) 

✓ ✓FT  1 3F 0 J 1 DD  UNI T=SYSDA. DSN=  &&F  ILEE  .01 SP  = < OLD. PASS ) 

✓ ✓SYNTH  EXEC  PGM-=SYNTH.REGI  ON  = 256K  .C0NC=(4,LT) 

/✓FT06F001  DD  SYSOUT=A 

✓ ✓F T 1 2F0U 1 OD  UNI T= S Y SD A , DSN=t&F  I L E 4 , 0 I SP= ( OLD . PASS) 

/✓F T13F001  DD  UNI T=SYSDA,DSN=CtFILE5,DISP={ OLD. PASS ) 

/♦END 
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2.  Execution  us  I ng  load  modules 

If  the  load  modules  cor respond Ing  to  the  programs  in  the  system 
have  already  been  prepared  and  stored  on  the  disk  file  USER . STAT. SIELKEN. PERT. , 
the  following  JCL  is  appropriate. 


//JudLlB  DD  DSN  AME=USER  .STAT  .S  IELKEN.PERT  ,D  I SP=SHR 
//MAIN  fcXcC  PGM=MA I N «REGI 0N=320K , COND= < A ,LT > 

//FIJoFj 01  OD  SYSOUT=A 

//FTJdFOOl  DO  UNI  T = S Y SD A , DSN= EOF  ILE  0 .DI  SP  = I NEW,  PASS  ) . 

//  SPACE  = ( 32 00  Or ( 100.25))  . DC B- ( L RE CL = 3 1 52 . 6L K S I l E= 3 1 56 , R ECFM  = V BS ) 

//FIUVFU  01  DD  UNI  T=  S Y SD A . D SN= E EF  ILE  1 .01  SP  = < NEM.PASS)  . 

//  SPACE -I  320  00. C 100.25)  ) . DC B= I L RE  CL  = 3 I 5 2 , BLK S I l E = 3 l 56 . RfcCF M= VBS ) 

//FMuFdUt  DD  UNI  T = S V SDA  ,DSN=6tF  ILE2  .DI  SP=  ( NEK. PASS)  . 

//  SPACE =< 32000, I 100.25)  > . DC I L RE CL  = 3 1 5 2 . BL KS I l E = 3 1 56 . H ECF M = VBS ) 

//FTI IFUdl  DD  UNI T=SYSDA,DSN=EEF ILE 3 ,DI SP  = t NEW, PASS ) . 

//  oPACE=(32000.<100.25)).DCB=(LRECL=3152.BLKSI2E=3156.«tCFM=VBS) 

//FTl/FOOl  OD  UNI  T=SYSOA,DSN=EEF  ILF  A ,DI  SPMNEW.PASS)  . 

//  -.PACE  * ( 32000. ( 100.25)  ).OCB=tLRECL-1l52.BLKSI2E=3l  56.RECFM-VBS  ) 

//FT1JFJ01  DD  UNI T=SYSDA ,DSN=EEF I LF 5 » DI SF= (NE*.PASS ) . 

//  SP ACE  = < 32000. ( 100.25)  ) . DC B = ( L RF CL  = 3 1 5 2 . BLK S I ZE= 3 1 56 . R ECFM  = VBS ) 

//FTUFjJl  DD  UNI  T=SYSDA  ,DSN=EEF  ILE6  ,D  ISP=(NEW,  PASS)  . 

//  SPACE  = < 32000. ( 100.25)) . DC B= ( L RECL  = 3 I 52  , BL  KSI 2E-31 56»RECFM=V0S  ) 

//FT15F001  DD  UN I T = S Y SD A , DSN= EEF I L E 7 , 0 l SP= < NE« . P A SS ) . 

//  SPACE =(  320  00. C 100,25)  ) . DC B= < L R E CL  = 3 1 5 2 . BL K S I Z E- 3 I 56 , R£CFM= VBS ) 

//FT0SF001  DD  * 

INSERT  DATA  CARDS  FOR  MAIN  HERE 

//DPS  EAEC  PGM  = DPS .REGI 0N=51 2K ,COND  = I A ,LT  ) 

//FTDoFOOl  DD  S V SOU  T ■=  A 

//FT 03F001  DD  UN I T= SYSD A . DSN  = & EF I L E 0 . 0 I SP = I OLD , P A SS ) 

//FT09FD01  DD  UN I T = S Y SD A , DSN  = EE F I L E 1 , D I SP = < OL D . P A SS ) 

//FTlAFsol  DD  UNI T=SYSDA ,DSN=EEF ILEE.OI SP=I OLD. PASS) 

//DSN  EAEC  PGM  = DSR ,REGION  = 256K ,CONO= I A ,L T ) 

//FTOoFOOl  DD  SYSOUT=A 

//FT  DBF  00  1 DD  UN  I T = SY  SDA  . DSN  = E f,F  I L F 0 . D I SP  = ( OLD  . P A SS  ) 

//FTjyFdJl  OD  UN I T= SY SD A . DSN  = EE F I L F 1 , D I SP  = ( OLD . P ASS ) 

//FT10F001  DD  UNI T= S Y SOA , DSN= EEF ILE 2 ,DI SP-I OLD, PASS) 

✓/FTI2FJJ1  DD  UNI T=SYSDA,DSN=EEF ILEA, DISF-IOLO, PASS) 

//FT14F0U1  DD  UNI T=SYSDA ,DSN=EEF ILE6 .01 SP  = < OLD.PASS > 

//SIMP  EAEC  PGM  = SIMP,REGI0N  = 256K,C0ND  = ( A.LT  ) 

//FTOoFOOl  DD  S YSOUT  =A 

//FTOdFOOl  DD  UNI T=SYSDA .DSN=EEF ILE O.DI SPM OLD.PASS ) 

//F  T 1 IF  00  1 DD  UNI  T= SYSDA . DSN=EEF  ILE  3 ,DI  SP  = ( OLD. PASS) 

//FTI5F00I  DO  UNIT=SYSDA,  DSN=EEF  ILE7,DISP  = (0LD.PASS) 

//MOOSIMP  EXEC  PGM  = MODS IMP, REG  I ON=320K  ,COND= I A , LT) 

//FTooFOOl  DO  SYSOUT=A 

//FTOdFOOl  OD  UNI T= SY SOA , OSN= E EF I L F 0 . O I SP= f OLD , P ASS ) 

//FT10F001  DO  UNI T=SYSOA.DSN=EEF  I L E 2 . D I SP  = I OL  D . PA  SS  ) 

//FT12FJ01  00  UNI  T= SYSOA ,OSN=EEF I LF A . O I SP= 1 OLD. PASS) 

//FT15F001  00  UNI T=SYSDA ,OSN=fctF ILF 7.DI SP=( OLD. PASS) 
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//Dc COMP  tXEC  PGM=DECOMP,REGION=320K,CCKD=(4,LT > 
//FTOoFOOl  DO  S YSOUT  = A 

//FT1IF001  DO  UNI T= S Y SO A . D SN=G&F I L E 3 , D l SP = C OLD . PASS) 

//FT13F001  DD  UN 1 T = S Y SO A , DSN= & EF I LE 5 . 0 I SP  = ( OLD , PA SS ) 

//SUBNET  EXEC  P GM  = SUBNE T , REG  I 0N=44 8K , C CND  = < 4 . L T ) 
//FT06FUU1  OD  S YSOUT  = 4 

//FTllFJOl  OD  UNIT  = S YSD A , DSN= t&F ILE2»DISP=<0LD.PASS) 

//FT12F001  DD  UN I T= S Y SD A , DSN= &&F I L E 4 ,D  I SP  = < OLD , PA SS ) 

//FT1JF001  DD  UNI T= SY SD A ♦ DSN=&EF I L EE  . D I SF= < OLD . PASS* 

//SYNTH  E XtC  PuM=SYNTH .REG !0N=256K. CCNC  = < 4 ,LT ) 
//FroOFJuI  JO  S Y SOU  T = A 

//FT12F001  DD  UN  I T=  SY  SD  A . OS  N- &&F  l L E 4 . D l SF  = ( OLD  , PAS  S ) 

//FT13F001  DD  U N I T= SV SD A . DSN  = C &F  I L E E . 0 I SF= ( OLD . PASS I 

//DSR  EXEL  PGM=DSR .REG  I 0N=256K ,COND=< 4 ,LT  ) 

//FTUOFOUl  OD  S Y SOUT  = A 

//FTJOFJOI  OD  UNI T=SYSDA. DSN=EEF ILEO.DI SP=( OLD, PASS) 

//FTJ9FJ01  DD  UNI T =S YSD A . OSN= &&F ILE  1 .DI SPMOLD. PASS) 

//FTljFOOl  DD  UNIT=SYSDA.DSN=&&FILE2,DISP=(0LD,PASS> 

//FTI2FJD1  DD  UN I T= S Y SD A . DSN= & &F I L E 4 . D I SP  = ( OLD . PASS > 

//FT 14FQU1  DD  UNIT=SYSDA.DSN=&EFILE6.DISP=C0L0,PASS) 

//MOOSIMP  EXEC  PGM  = MODSIMP,REGION  = 320K  ,C0NC=<4,LT1 
//FTD6FD01  DD  SYSQUT=A 

//FTOdFJOl  DD  UN I T= SY SD A , DSN= EEF I L E 0 . O I SF= < OLD , PASS ) 

//FTIOFQOI  DD  UN I T= SY SD A . DSN=&&F I L E 2 . D I SP = < OLD . PA SS ) 

//FT12FJ0I  DD  UN I T = SY SDA»DSN=EEF ILE4*DISP=( OLD. PASS ) 

//FTlbFOul  DD  UNIT=SYSDA,DSN=&&FIL67.DISP=(0LD.PASS1 

//SUoNcT  cXEC  PGM  = SUBNE  T « REG I 0N=4  48  K »CCNC  = (4»LT) 

//F  T OoF  J J 1 DD  S YSOUT  =A 

//FT11FU0I  DD  UNI T=SYSDA«  DSN=& t F ILE3»DISP=I0LD»PASS) 

//FT12F001  DD  UN IT=SYSDA, DSN= t&F  ILE4.DISP  = ( OLD. PASS ) 

//FT13F001  DD  UN I T = S YSD A , DSN= G&F I L E S . D I SP  = ( OLD . P A SS ) 

//SYNTH  EXEC  PGM= SYN TH , RE G 10N  = 256K . C C KD= ( 4 , L T ) 

//F  T OOF  001  OD  S YSOUT  = A 

//FTltFuOl  DD  UN1T=SYSDA,DSN=&CFILE4,DISP=(0LD,PASS) 

//FT  13F001  DD  UN I T = S YSD A . DSN  = G& F I L E E . 0 I SP = ( OL D . P ASS > 

/*tNU 
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Appendix  H 

Interrupting  the  Computer  Svstem 

The  number  of  Iterations  necessary  to  identify  an  "acceptable"  project 
schedule  using  the  new  project  scheduling  procedure  depends  on  many  factors 
and  usually  cannot  be  determined  in  advance.  Also  the  number  of  job  steps 
allowed  in  the  JCL-program  for  a given  run  varies  widely  from  one  computer 
installation  to  the  next.  (Currently,  at  Texas  A&M  the  limitation  is  10 
job  steps.)  Thus,  some  provision  must  be  made  for  interrupting  the  computer 
system  prior  to  the  identification  of  an  acceptable  project  schedule  and 
restarting  it  from  the  point  of  interruption. 

One  method  is  to  let  the  "temporary"  data  sets  defined  in  Appendix  F 
correspond  to  user-supplied  (permanent)  storage  devices  rather  than  system- 
supplied  (temporary)  ones.  This  requires,  however,  that  the  user  supply 
(and  pay  for)eight  different  permanent  storage  devices  (or  locations). 

A second  method  which  requires  that  the  user  supply  only  one  permanent 
storage  device  involves  the  use  of  the  programs  SAVEFIL  and  READFIL  which 
allow  the  user  the  capability  of  1)  interrupting  the  computer  system  at 
any  of  the  starred  points  (*)  indicated  on  Figure  H.l  and  2)  continuing 
the  procedure  from  the  point  of  interruption  at  some  future  time.  SAVEFIL 
and  READFIL  are  documented  in  subsections  1 and  2,  respectively,  of  this 
appendix.  Subsection  3 gives  a listing  of  their  associated  JCL. 


SUBNET:  subnetwork 
analysis  program 


SYNTH:  synthesis 
program 


cceptable  proJecH 
schedule  ? 


Figure  H.l  Flowchart  with  (*)  indicating  where  SAVEF1L  may  be  used  to 
Interrupt  the  system. 
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1.  SAVEFIL:  System  Interruption  Program 

The  project  scheduling  system  may  be  interrupted  after  the  completion 
of  any  job  step  by  executing  program  SAVEFIL,  which  copies  the  pertinent 
data  currently  on  FILEO,  FILE1,  FILE7  onto  a user-supplied  permanent 

storage  device.  SAVEFIL  also  outputs  the  Information  which  must  be  input 
to  the  restart  program,  READFIL. 

The  following  single  card  of  input  should  be  supplied: 

Column  Format  Description 

1-8  2A4  the  name  of  the  last  program  executed 

before  the  interrupt.  The  valid  names 
are  MAIN,  DPS,  DSR,  SIMP,  MODSIMP, 
DECOMP,  SUBNET,  and  SYNTH.  (Note: 
always  begin  in  Column  1.) 
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2.  READFIL:  System  Restart  Program 

When  the  project  scheduling  system  has  been  interrupted  by  the  use 
of  SAVEFIL,  READFIL  must  be  used  to  restore  the  necessary  information  to 
the  temporary  data  sets  before  ttie  iterative  procedure  may  resume.  The 
following  single  card  of  input  should  be  supplied: 

Column  Format  Description 

1-8  2A4  the  name  of  the  last  program  executed 

before  the  interrupt. 

1-9  12  0 if  the  procedure  was  interrupted 

before  the  first  execution  of  SYNTH 
1 otherwise 

The  remaining  parameters  should  only  be  supplied  if  the  procedure  was 
interrupted  immediately  after  the  execution  of  SYNTH. 

11-20  F10.5  The  value  of  TT  for  the  next  iteration 

if  different  from  the  value  specified 
by  SYNTH. 

21-25  15  1 if  the  values  of  any  of  the  following 

are  to  be  different  from  their 
current  values  in  the  next  iteration: 
I0PT,  PCT,  PD 
0 otherwise 


26-30 

15 

the 

new 

value 

for 

IOPT 

31-40 

F10.5 

the 

new 

value 

for 

PCT 

41-50 

F10.5 

the 

new 

value 

for 

PD 

See  Appendix  A for  the  definition  of  TT,  IOPT,  PCT,  and  PD. 
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3.  JCL  for  SAVEFIL  and  READFIL 

The  following  exemplifies  the  JCL  required  by  program  SAVEFIL  for 
the  Texas  A&M  computer  facilities.  For  this  example,  the  user-supplied 
permanent  storage  device  is  named  USER. STAT.SIELKEN. DATA. 


// JJdL  I b DO  DSNAME  = USER. STAT.SIELKEN. PERT. DISP  = SHR 
//SAVEFIL  EXEC  FOR TGCL . REG  1 0N= 256K 
//FORT ■ oYblN  DO  * 


INSERT  FORTRAN  SOURCE  DECK  FCR  SAVEFIL  HERE 


//LK 
//SA 
//FT 
//FT 
//FT 
//FT 
//FT 
//F  T 
//F  T 
//F  T 
//FT 
//FT 
//FT 


— D • SY 
VEF1L 
J<*FOO 
06F  00 
DoF  JO 
J*F  J 0 
1 JFOO 
1 IF  JO 
1 2F00 
1 3F  JO 
I AF  00 
1 SF  JO 
OSF  JO 


SLMOD  DD  OSN=USER. 
EXEC  PGM=SAVEFIL. 


DD  DSN=USER.S 
DD  S Y SOUT  = A 

DD  UN l T = S Y SD A • 
DD  UN  I T =SYSDA 
UNI T=SYSDA 
UNI T=  S Y SD A 
UNI T = SY  SD A 
UNI T= SY  SD A 
UNI T = SY  SO  A 
UNI T = SY  SD A 


DD 


DD 

DO 

DD 

DD 

DD 

DO 

♦ 


STAT.SIELKFN.FERTfSAVEF IL ) ,DISP=SHR 
RE&ION-2SCK  , C CNG  = I A , L T ) 
TAT.SIELKEN.OATA.OISP-SHR 

DSN-LLF ILEO  ,DI SP  = I OLD.DELETE) 

. DSN=&{.F  ILF  1 »DISP=( OLD, DELETE  I 
. DSN=t&FILE2.D  ISP  = I OLD,  DELETE  » 
.DSN^ttF  ILF  3 . D I SP= I OLD . DELETE ) 

, DSN=ttFILEA,DI SP = ( OLD , DEL E TE  ) 

, DS  N = t OF ILEE»OISF=( OL  D • DELE  TE  > 

. DSN  = fctF I LEE .D l SP  = < OLD. DELETE  > 
,DSN=6tFlLE7 ,DI SP=( OLD, DELETE ) 


INSERT  OATA  CARD  FOR  SAVEFIL  HERE 


/*cN  D 


i 


J 
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Similarly,  the  JCL  for  program  READFIL  is  as  follows: 


//JUtbLld  uD  DSNAME=USER.STAT.SIELKEN.FERT,OISP=SHR 
//READFIL  cXEC  FORTGCL .REGION=256K 
//FUHT.SYSIN  DO  * 

INSERT  FORTRAN  SOURCE  DECK  FCR  READFIL  HERE 

//LKcd.aYSLMOt)  03  0 S N = USE R • S T A T . S I EL K E N * PE R T ( R E AOF  I L > > 0 I SP  "SHR 
//RcADFiL  EAEC  PGM  = R E AOF  I L . RE 0 I 0N  = 2 56 K , C C NC  = < 4 . L T I 
//FT04F001  DO  DSN  = U SE R • S T A T . S I EL K E N . C A T A . C I SP  = SHR 

/✓FTjoFOOl  DO  SYSOUT-A 

✓ /FTjdFJOl  OD  UNI T = SYSDA,DSN=&&F ILEO  .D I SP= < NEW, PASS ) . 

//  SPACE =<32000,1 100,25)). DC B=ILRECL=3152,BLKSIZE=3t 56. RECFM=VBS) 

//FTjVFJOl  DO  UNI  T = SYSDA,DSN=&6F ILE  1 ,DI SP=<NEW, PASS) . 

//  SPACE  = < 32  00  0 . ( 1 0 0 ,2S  > ) .DCB=<  L RE CL =3  I 52 , BLK S I ZE= 3 1 56 . R ECFM= VBS ) 

//FTlvFOQl  DO  UNI  T = SYSDA.DSN=&e.F  ILE2.DI  SP  = < NEW, PASS  ) . 

//  iPACE=( 320 00, < 100.25) >.DCB=<LRECL=3152.BLKSIZE=31 56,RECFM=VBS ) 

//FT  I 1FU01  DD  UNI T=SYSDA»DSN=&6F ILE  3 ,DI SP=<  NEW. PASS) , 

//  SPACE  = < 32  000.(100.25)) . DC B= < LRE CL = 3 1 52 , BLK S I ZE= 3 1 56 , R ECFM= VBS ) 

//FT12F0O1  DD  UNIT=SYSDA.DSN=SSFILE4,DISP=<NEW.PASS) . 

//  SPACE  = < 32  00  0 . < I 00 .25)  ) . OCB= < L RECL  = 3 I 52 , BLK S I ZE  = 3 1 56,RECFM= VBS ) 

//F  T 1 JF  jj  1 DD  UNI  T = SYSOA  ,DSN=£.£.F  l L E 5 . 0 I SP= < NEW . PASS  ) , 

//  sPA  CE  = ( 32  000.(100.25))  , DCB=  < L R ECL  = 3 1 5 2 . BLK S I ZE= 3 1 56 , RECFM= VBS ) 

//FT1<»F001  DD  UNI  T=SVSDA  .DSN  = ttF  ILE6.DI  SP=  INEW,  PASS  ) . 

//  SPACE  = ( 32000.(  100.25)) . DCB= < L RE CL  = 3 I 5 2 , BLKS I ZE= 3 1 56 , R ECF M = VBS ) 

//FT15F001  DD  UN  I T=  SY  SO  A . DSN=  6.E.F  I LE  7 , D I SP  = < NEW  . P A SS  > • 

//  SPACE  = < 32  000.1  100.25)  >.DCB=(LRECL=3152,BLKSIZE=3156,RtCFM=VBS> 

//FTJSF001  DD  * 

INSERT  DATA  CARD  FOR  READFIL  HERE 
//-——•CONTINUE  WITH  THE  JCL  FOR  THE  NEXT  PROGRAM  IN  THE  SEQUENCE 
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1.  MAIN 

C MAIN  PROGRAM  1 

C 2 

C THIS  PROGRAM  HEADS  ALL  USER  SUPPLIED  INPUT  TO  THE  PROJECT  3 

C SCHEDULING  SYSTEM  ANO  STORES  THE  INFORMATION  ON  (SCRATCH!  A 

C DISK  FILES  DEFINED  BY  THE  USER.  THE  INFORMATION  IS  RETIEVEO  5 

C AS  NEEDED  BY  THE  INDIVIDUAL  PROGRAMS.  6 

C 7 

C SEE  TECHNICAL  REPORT  AST  FOR  SPECIFIC  INPUT  INSTRUCTIONS  6 

C 9 

C 10 

C FOR  THE  SAKE  OF  IDENTIFYING  THE  APPROPRIATE  DIMENSIONS.  LET  11 

c MMAX  = THE  MAXIMUM  NUMBER  OF  ACTIVITIES  IN  THE  ORIGINAL  12 

C PROJECT  NETWORK  13 

C LNMAX  * THE  LARGEST  NODE  NUMBER  ALLOWED  IN  THE  PROJECT  NETWORK  14 

C NCTMAX  = THE  MAXIMUM  NUMBER  OF  COMPLETION  TIMES  ANC  CCSTS  FOR  IS 

C EACH  ACTIVITY  16 

C CURRENTLY.  MMAX= 1 000 1 LNMAX=9999J  NCTMAX=6  17 

C IB 

C INTEGER**  FILEOI A *MMA X *5  ) , N A ( MM A X ) 19 

C INTEGER**  NOOEU I MMAX 1 • NODE  T I MMAX 1 «NCT I MMAX 1 . IDI ST (MMAX  *NCT  MAX— 1 1 20 

C INTEGER*!!  T I ME  ( MMAX  . NC  T MAX  1 . COST  ( MMA  X .NC  TMA  X I 21 

C REAL**  PARM1 ( MMAX .NCTMAX- 1 1 . PARM2 (MM AX .NCTMAX- 1 1 22 

C REAL**  PARMJI MMAX, NCTMAX— I ) . PARM4 ( MMAX, NCTMAX— 1 1 23 

C ECUI VALENCE  (FILE0(6).NA(  I ))•  (FILEOI MMAX  46 1 • NODED III)  2* 

C EQUIVALENCE  ( F I LEO! 2 • MM A X *6 ) . NODE T ( 1 I I . I F ILE 0 ( 3* MMAX *6 . NC T ( I ) ) 25 

C IN  SUBROUTINE  LOOP.  THE  ADDITIONAL  ARRAY  DIMENSIONS  ARE I 2b 

C DIMENSION  A<  LNMAX! .0 (LNMAX!  27 

C 26 

C THE  VALUES  OF  THE  VARIABLES  FO  - F7  SHOULD  CORRESPOND  TO  UNIT  29 

C NUMBERS  FUR  THE  INSTALLATION'S  TEMPORARY  STORAGE  OE V I SES ( C I SK S I 30 

C WHICH  WILL  BE  REFERENCED  BY  THE  PROJECT  SCHEDULING  SYSTEM.  31 

C 32 

INTEGER  F0/B/.F1/9/.  F 3/ 1 l / ,F* / 12/ , FS/ 1 3/  33 

INTEGER**  SAMSI 2 .THELAM ,F ILEO (*005) . NA( 10001  3* 

INTEGER**  NODEDI  1000  I .NO0ETI  1 OOOi .NC Tl  I 0001 . IDI ST  I 1 000.5 ! 35 

I NTEGER*2  T I ME ( 1 000 . 6 1 . COST ( I 000 .6 > . T E ST  I . TE ST  2 . TE ST  3 . ST  1 ME  36 

REAL**  PARM1(1000.S!.PARM2(1000.S).PARMJ<1000.S1 , PAR M* (1000. 51  37 

REAL**  THETAI J!.LAMU0A(3!  36 

EOUI VALENCE  (FILEOI  1 > .NACT) . (F  I LEO (2  ) .NODES!  . (F I LEOC 3 1 . NSRCE  I.  3 9 

• <F ILE0(4 1 . NSINK 1 , ( F ILEOI 51 .LNUDENI . (F ILEO( 6 I .NA(  1 1 I , *0 

• (F ILEOI 1006! .NODEOI 1 )). (F ILEOI2006! .NODETI 1 1 I.  41 

• (FILEOI 3006 1 • NC  Till!  *2 

COMMON  /BLKA/NACT .NODES .NSRCE. NS  INK .L NODE N, N A. NOCEO, NODE  T . NC  T *3 

INTEGER  NURMI  51 ✓ • NOR  M* , 'AL'.3*'  • / , BET  I 5 1 /• BE T A • . **•  •/  ** 

INTEGER  RECT (51/ 'RECT • , • ANGU  *, 'LARI',* UN  IF',  'ORM 1 •/  *5 

INTEGER  FIXEU(5)/'FI XE ' . • 0( CO' , • NST  A ' • • NT  1 • . • •/  *6 

MR  I TE (6 .2000  1 *7 

2000  FORMAT  I 1H1 . I 321  •*' 1 / I X, l J2( • *'  I//////5I X. 'S  TAT  1ST  ICAL  *6 

•PER  T ' ///// ! *9 

*RITE(6.2001 ! 50 

2001  F0FMATI52X. 'A  PROJECT  SCHEDULING  PROCEDURE '///  51 

• 6 OX. 'WRITTEN  AT  THE  • //55X. • INST  I TUT E OF  STATISTICS'/  52 

•57X. 'TEXAS  ACM  UN I VER S I T Y ' /b 3 X . • COLLEGE  STATION,  TEXAS  77B*J'///  53 

•61X. 'AUGUST  1978'/////3JX.* INQUIRIES  AND  COMMENTS  SHOULO  BE  ADORES  5* 

• SED  to:  ROBERT  L.  SIELKEN  JR . ' // l X . I 32 1 ' • • ! / I X. I 32( ' •' !////// 1 55 

C 56 

C GENERATE  PARTS  A ANO  B OF  FILEO  ANO  FILE1  57 

C 56 

READ (5. I I 0 I NACT , NOOES • NSRCE • NSINK .LNOOEN  59 

00  1300  I * I » NAC  T 60 
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REAC(5.110)NA(  I ) . NUDLO(  I I . NO  DET  ( I ) , NNCT  61 

NCT(I)=NNCT  62 

NNCT 1=NNCT— l 63 

RE AO (5 . 1 I 0) < l 1ME{  I . 3 > . 3*1  .NNCT ) 64 

RE  AO (5. 1 1 01 (COST < t • 3 ) . J- I .NNCT 1 6b 

00  1300  Lai. NNCT I 66 

RE  AO (5.  1501 J.IOISTI  1 . J 1 • PARM 1 ( I . J 1 . P ARM2 ( 1 . J ) , P ARM J( 1.3) .PAR  M4 ( I . J 6 7 

• ) 68 

1300  CONTINUE  69 

mRITE(FO)FI LEO  70 

RE  AO ( 5. 1 1 0) TEST  1 . TEST2. JMAT  71 

HR  ITE (FO > JMAT  72 

ENOFILE  FO  73 

TEST  3-0  74 

SI  1ME  = 0 75 

MR  ITE (FI ) TEST  1. TEST 2. TEST3.S TIME  76 

00  1400  lal.NACT  77 

NKC  T = NCT ( 1 1 78 

NNC  T 1 = NNC  T— 1 79 

MRITEIF1  ACT  IME(  I . 3 ) . J- 1 . NNCT  > . (COST ( I .3)  ,3> 1 .NNCT  ) 80 

OC  1400  3a 1 , NNC  T I 81 

MRIT£(F1>ID1ST(  I .3) .PAR Ml ( | , 3) ,PARM2(  1.3) .PARM3 ( 1.3) . P ARM4 ( I .3)  82 

1400  CONTINUE  83 

ENOFILE  FI  84 

C 85 

C GENERATE  PART  A OF  FILE3  86 

C 87 

RE AO (5. I 10) 1 toF .NMAX. 1 POOL. SAMS  1 1 88 

RE  AO (5. 1 12) TMLL A M . ( THE T A ( 1 ) . I = I .3) . (LAMBDA!  I ) . 1= l .3)  89 

MR ITE IF J ) I EOF.  NMAX.  I POCL  . SAM  S I 2 . T HE1_  AM  . ( T HET  A ( I ) . I = I . 3 ) , (LAMBDA  ( I ) 90 

4. 1=1. 3)  91 

C 92 

C GENERATE  PART  A OF  F I LEA  AND  PART  A OF  FILES  93 

C 94 

RE  AC (5 . ISO ) IUPT . NT.PCT.PO.TT  95 

NCVC=l  96 

NFLAG=0  97 

MRI TE (F4)NCVC.TT .NFLAG  98 

MR1TE(F5) IOPT.NT .PCT .PD  99 

110  FORMAT (81 10 ) 100 

112  FORMAT (I  10*  6F 10.5)  101 

ISO  FORMAT (21 I0.4F10.5)  102 

C 103 

C OUTPUT  THE  PROBLEM  AS  IT  MAS  READ  IN  104 

C 105 

' MRITE(6, 1000)  106 

1000  FORMAT I'OTHIS  IS  THE  OUTPUT  FROM  THE  MAIN  PROGRAM:  MAIN*////  107 

••OTHE  PR03ECT  NETmORK  AS  IT  MAS  REAO  INS*)  1 08 

MR ITE (6. 1001 ) NUDES. NACT . NSRC E . NS  I NX , L NOOEN  109 

1001  FORMAT </✓/• OTHE  NUMBER  CF  NOOES  IS  ,.I4.•.•/•  THE  NUMBER  OF  ACTIVI  110 

* 4T1ES  IS  • .14.* • • / • THE  SOURCE  NODE  IS  NUMBEREO  '.15.*  AND  THE  SINK  III 

* NODE  IS  NUMBERED  MS,'.'/*  THE  LARGEST  NODE  NUMUER  IS  *,  112 

• 1 5 . •••//• l AC T 1 V I TV  OR  1 G TERM  3 TIME  COST  0 1 S TR I BUT  I ON • ,9 X. • P AR AMET  113 

•ERS*/)  114 

DO  1100  lal.NACT  IIS 

NNCT  =NCT ( I ) 116 

NNCTI=NNCT-I  117 

00  1090  3 a | . NNC  T I ||8 

IC-IOISTI  1,3)42  119 

GC  TC  (1020.1040.1060.10801.10  120 

1020  IF  (PARM4(  1,3)  .ECJ.-I  . )GU  TO  1030  121 
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MRITE(6.1021)I  .NOOtC!  I > • NODE.  T ( 1 ) . J . T I ME  ( 1 . J ) .COST  (I  . J ) . 122 

• BET.PARMI ( | , J ),PARM3I I . J > .PARH21 I . J » ,PARM«( I , J»  123 

1021  FCPMAT(JX.IA.2X. 15.  15. IX, I 1 . IS. 1 5. 1X.5A4, IX.  124 

4'MIN*' .F 13.5,  • . MAX** ,F 15.5. • , ALPHA  = • , F 1 2 .5 . • . BETA* • ,F I 2 . 5 ) 125 

GC  TC  1000  126 

1030  MR  I TE ! 6 . 1 03 111  • NODE  0 ( I ) • NODE  T ( I 1 . J, T I ME ( I . J I .COS T I I . J I , 127 

• BET .PAP Ml  1 I . J) , PARM2I 1 • J ) . PAHMJ ( I. J)  12e 

1031  F CRM  A T (JX.l 4 • 2 A • 15.  I 5 . 1 X . I 1 . I 5 . I 5 . 1 X .5 A4 . IX . 120 

• 'MIN*' .F13.S. • . MODE*  '.F14.5.'  • MAX* • ,F 1 4 .5 1 130 

GO  TC  1090  131 

1040  IF 1PARM4 ( I . J) .EO.-l . 1G0  TO  10S0  132 

• PIT t (6, 1 04  1 1 I . NODE U t I 1 .NODET ( II. J. TIME!  I. J ) .COST!  I . J) . 133 

• NGPM,PABM2< I . J) .PARM3I I , J 1 134 

1041  FORMAT < JX.l 4. 2X. 15.  1 5 . 1 X . I 1 . I 5 . I 5 . 1 X . 5 A4 . 1 X . 1J5 

4'MEAN*' .F12.S,  • , ST.DEV='.F12.5)  136 

GO  TC  1090  137 

1050  MRITE (6. 1051 )1 . NCIOECJ  ( 1 1 .NODET  < I ) . J . T I ME  ( I • J I .COST  ( I . J 1 , 136 

4 NORM .PARM1  ( I , J) .PARM2 I 1 . J ) .PARM3I  1 . J1  139 

1051  FGBMAK3X.14.2X,  IS.  I 5 . 1 X . 1 1 • I 5 . 1 5 . 1 X .5  A4 . 1 X . 140 

4'MIN*' .F13.5, • . MEAN* • ,F 14.5. • , MAX*'.F14.5)  141 

GO  TO  1090  142 

106  0 an ITE (6. 1061  ) I . NODEU ( I 1 .NOCETI  I ) . J, T IMEI  I.Jl.COSTII.JI.  143 

• RECT .PARM1 ( I , J1 , PARM3I I . J 1 144 

1061  FCPMAT13X.I4.2X. 15.  1 5 , 1 X . 1 1 . I 5 . I 5 • 1 X . 5A4 , 1 X , 145 

4 • M I N= • ,F  1 3. S . ' , MAX*  * .F15.5I  146 

GO  TO  1090  147 

I0e0  API  TE  !6 , 1081  1 1 • NOCEOI  I ) .NODET  ( I ) . J.  T I ME  ( I . I .COST  I I . J ) . 146 

• F I XED.PAPM1  ( I , J)  149 

1061  FCPMAK3X.I4.2X.  15.  1 5 , 1 X . I 1 . I 5 . I 5 , 1 X , 5 A4  , l X , • T IME*  • , F 1 2 . 5 I 150 

1090  CCMIME  151 

J«NNC7  152 

MR ITE  <6. 1095) I , NODEOI  I I .NODET { ll.J.TIMEI  I.J)  .COST! I . J)  153 

1095  F OPM AT { 3X, I 4 , 2X.  15.  I 5 . 1 X . I 1 . 1 5 . I 5 ) 154 

1100  CONTINUE  155 

IF < TE ST  1 I 1 104. 1 1 04. 1 1 06  156 

1104  MRI TE (6. I 105 ) 157 

1105  FORMAT (✓✓//• UTHE  INFORMATION  INPUT  TO  THE  DETERMINISTIC  PROJECT  SC  156 

4HEDULCNG  PROGRAM  MILL  BE  PRINTED.')  159 

GO  TO  1 1 I 0 160 

1106  MR  ITE (6. 1 107 ) 161 

1107  FCPMAT (✓✓✓/'OTHE  INFORMATION  INPUT  TO  THE  DETERMINISTIC  PROJECT  SC  162 

4RE0ULING  PROGRAM  MILL  NOT  BE  PRINTED.' > 163 

1110  IF  1 TEST2) I 1 14, 1 1 14. 1 1 16  164 

1114  MPITE(6.1 115)  165 

1115  FORMAT! • THE  INTERMEDIATE  OUTPUT  GENERATED  BY  THE  DETERMINISTIC  PR  166 

40JECT  SCHEDULING  PROGRAM  MILL  BE  PRINTED.*)  167 

GC  TO  1120  166 

1116  MBITE (6. 1 1 1 7)  169 

1117  FORMAT!'  THE  INTERMEDIATE  OUTPUT  GENERATED  BY  THE  DETERMINISTIC  PR  170 

40JECI  SCHEDULING  PROGRAM  MILL  NOT  BE  PRINTED. '1  171 

I 72 

1120  IF  I JMA T 1 1 126. I I2e. I 121  173 

1121  MBITE (6, 1 122)  174 

1122  F C PM  ATI' OTHE  SIMPLIFICATION  PROGRAM  MILL  PRINT  ONLY  THE  MINIMUM  CU  175 

4T  PUT • • 1 176 

GC  TO  1130  177 

1126  MRI TE (6. 1 129)  176 

1129  FORMATI'OTHt  SIMPLIFICATION  PROGRAM  MILL  PRINT  THE  COMPLETE  OUTPUT  179 

4. • ) 160 

1130  continue  iei 

MR ITfcCfa.IlJl ) 1LDF . NMAX, SAM SI l 1E2 
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1131 


1132 

1133 


1134 

1135 

I 136 
1137 


1136 
1 139 


I 140 
1141 

1150 

1151 


1160 

1161 


I 165 
1166 


I I 70 
1171 

C 

C 

c 


FORMAT  (*ODUk1n(j  THE  SUBNET »UKK  ANALYSIS  PROGRAM,*/ 

•SX.'IHE  NUMBER  OF  SUBDIVISIONS  IN  THE  fc  S T 1 MATEO  DURATION  OISTRIBUT 

• ION  FOR  EACH  SUBNETWORK  WILL  BE  *.I4  ,*;«/ 

*5X,  * T HE  LAWGeST  NUMBER  CF  ACTIVITIES  IN  A SUBNETWORK  FOR  WHICH  TH 

•E  SUBNETWORK* , 1H* ,* S'/IOX.  *EXACT  DISCRETE  DURATICN  DISTRIBUTION  W 
•ILL  BE  ENUMERATED  IS  *,I4.*;*/ 

•SX.  *THfc  MAXIMUM  NUMBER  OF  ACTIVITY  DURATION  CONFIGURATIONS  EXPLl 
•CITLY  CONSIDERED  IN  THE  DETERMINATION  OF  THE • / l 0 X , • UPPER  AND  LUmER 

• BOUNDS  C EACH  SUBNET WORK *, 1 H* ,* S DISCRETE  DURATION  DISTRIBUTION 

• WILL  BE  • ,15,*  I • 1 

IF! IPC0L11 132. 1 132. 1 134 
WRI TE(6. 1 133 ) 

FORMAT (SX. • THE  MAXIMUM-CLUSTER  PROCEDURE  WILL  BE  USED  IN  THE  DETER 

• M 1 NAT  I ON  OF  THE  BOUNDS! •) 

GO  TO  1136 

WRITEC6.1 135) 

FORMAT(5X.*THE  UNION-CLUSTER  PROCEDURE  WILL  BE  USED  IN  THE  DETERMI 
•NATION  OF  THE  BOUNOS ! • I 
WRITE16. 1 137) 

FORMAT  (5X. 'THE  FOLLOWING  I THE T A . LAMBDA  I 
•FORMATION  OF  THE  CLUSTERS!*) 

I FIT  HELAM) 1 133,  1138,1140 
WRITE (6. 1 139) 

FORMAT ( 1 OX. • I 1. 

• 00000,  2.00000  ) < 

GO  TO  1150 

WRITEC6.1141  MTHETAI  I ) .LAMBDA!  I ) . 1 = 1 ,3 ) 

FORMAT IIOX.'I* .F10.S.' .' .F10.5,* ).( *.F10«5,* .'.F10. 5, ')•(', F10.5. 

• • . • *F 10 .5. • ).•  ) 

WRITE(6,1 151 ) NT 

FORMATCOTHE  NUMBER  OF  SUBDIVISIONS  IN 
•I2E0  COMPLETION  TIME  DISTRIBUTION  WILL 
IF ( I OPT  » 1 160. 1 16  0. 1 165 
WRITE (6. 1 161 1PCT .PD 

FCRMAT(*OTHE  • ,F7 .2 , •— TH  PERCENTILE  OF 
•MATE  COMPLETION  TIME  DISTRIBUTION  WILL 


PAIRS  WILL  BE  USEO  IN  THE 


.00000. 

,•  ) 


1 .00000) . ( 


2.00000. 


2.00000) . ( 


3. 


THE 

BE 


NETWORK* . 1 H* ,* S SYNTHES 
1 1 2 . • . * ) 


THE  NETWORK* . 1H* , *S  APPROXI 
BE  COMPARED  TO  THE*/ 


♦10X, • SPECIFIED  PROJECT  DEADL I NE  OF  *.F10.5.*.*) 

GO  TO  1170 
WRITEI6. 1 166 )PD 

FCRMAT(*OTHE  MEAN  OF  THE  NETWORK *, 1 H *,* S APPROXIMATE  COMPLETION  T1 
•ME  DISTRIBUTION  WILL  BE  COMPARED  TO  THE*/ 

•10X. 'SPECIFIED  PROJECT  OEADLINE  OF  *.F10.5.*.*> 

WRI TEI6. I 171 )TT 

FCRMATCOTHE  TARGET  TIME  FOR  THE  FIRST  ITERATION  IS  *,  F 1 0 . 5 .*.*// > 


CHICK  FOR  LOOPS  IN  THE  PROJECT  NETWORK 


C A AC  L OOP 
% f CP 

• Ml 

u!  1*1  .UUP 


....  l(..|MS  w HE  T Ml  R THE  PROJECT  NETWORK  IS  ACYCLIC 

• « t which  4Mi  PART  OF  LOOPS  (CYCLES) 

I iw«i  R**<  |4-|| 

> « 4. . ,..l .#1 ...f I 

. . ...  . i • . 401  t 000  ) .NC  T 1 I 000  t 

• • • . . *W  „ Wilr.1  k.k4.t4ll,NtM).  NC  T 


183 

184 

185 

186 

187 

188 
169 
l 90 

191 

192 

193 
1 94 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
21  1 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 


4 


i 


4 


241 


24? 


24  3 


♦ u 
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I 


t 


MR  I TE ( 6 >2004  ) 24* 

2004  FORMAT (*0TH1S  IS  THE  OUTPUT  FROM  SUBPROGRAM  LOOP.  THE  PROGRAM  SEAR  245 

ACHES  THE  GIVEN  PROJECT  NETWORK  FOR  LCOPS  (CYCLES). •/•  A VALIO  *,  246 

• •PROJECT  NET  MURK  SHOULD  CONTAIN  NO  LOOPS.*///)  247 

00  4 JM.LNODEN  246 

A(J)=0  249 

B(J)*0  250 

FORM  THE  1ST  HIERARCHY  251 

INCOE  z 0 252 

00  KIER  = 2 253 

82  INGOE*INOCEd  254 

IFdNCOE.EO.NSRCE.OR.  I NODE  .EO.NS  I NK  ) GO  TO  01  25S 

OO  5 1* 1 »M  256 

I^( INOOE.EO. T A1L( I ) ) GO  TO  01  257 

5 CONTINUE  258 

GO  TO  82  259 

ei  J*0  260 

00  1 I*  l.M  2 61 

IF(HEADd).  NE.  INCOE ) GO  TO  1 262 

J * J+ 1 263 

A(J)*TAILd)  264 

IF  (TAILd).EO. INODE)  GO  TO  990  265 

1 CONTINUE  266 

IF  (J.EO.J)  GO  TO  997  267 

I A* J 268 

J*0  269 

C FORM  THE  SUBSEQUENT  HIERARCHIES  270 

102  CONTINUE  271 

00  2 11*1. 1A  272 

00  3 1*1. M 273 

IF  (HEAOd).NE.Add)  GO  TO  3 274 

IF(TAILd).  LQ.  1 NODE  ) GO  TO  990  275 

IF(J.EO.O)  GO  TO  40  276 

00  10  K*1.J  277 

IF  (TAILd  I.EU.B(K)  ) GO  TO  11  278 

10  CONTINUE  279 

40  CONTINUE  280 

J*J41  261 

81 J)*TA IL( I ) 2e2 

11  CONTINUE  283 

3 CONTINUE  284 

2 CONTINUE  285 

IF  (J.EQ.O)  GO  TO  997  286 

HIER  * HIER+I  287 

1 A* J 268 

J * 0 289 

OO  20  1*1. IA  290 

20  Ad>*Ed)  291 

GO  TO  102  292 

997  CONTINUE  293 

MRITE<6.2002)  1NOOE  294 

2002  FORMAT (•  NODE*. 15.*  IS  NOT  PART  OF  A LOOP*)  295 

IF  ( 1N0DE.NE.LN00EN) GO  TO  00  296 

IF ( ILCOP.EQ. 1 ) GO  TO  50  297 

hRITE(6. 1000 ) 290 

1000  FCRMAT  (•  THERE  ARE  NO  LOOPS  IN  THIS  NETWORK*)  299 

GO  TC  999  300 

BO  »R!TE(6.SI)  301 

SI  FORMAT! • THERE  ARE  NO  OTHER  LOOPS  IN  THIS  NETWORK*)  302 

AdOOOOOOOOO)  ■ 0.  303 

GO  TO  999  304 


4 
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998  ARItt  (6,1001)  INODE. HIER  305 

1001  FORMAT ( • NOOE  '.IS.'IS  PART  OF  A LOOP.  THERE  ARE  *.I3.*  ACTIVITIE  306 

*S  IN  THE  LOOP.* ) 307 

ILCCP* 1 308 

l ROOD- I NODE-*  1 309 

IF  1 1 N000. NE.LNOOEN ) 00  TO  80  310 

999  RETURN  311 

ENC  312 
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2.  DPS 


c 

c 

c 

C' 

c 

c- 

c 

c 

c 

c 

c 

C' 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


deterministic  project  scheduling  program 

DETERMINISTIC  PROJECT  SCHEDULER:  THIS  PROGRAM  COMPUTES  THE 
MINIMUM  PROJECT  COST  AND  ASSOCIATED  OPTIMAL  FIXED  ACTIVITY  TIMES 
FOR  EVERY  FEASIBLE  PRCJECT  DEADLINE. 

ALL  VARIABLES  ARE  INTEGER. 

I IF  ANY  VARIABLE  IS  NOT  ALREADY  IN  INTEGER  FORM.  THE  VALUES  MUST 
BE  RESCALEO  - THAT  IS.  MULTIPLIED  BY  AN  APPROPRIATE  POWER  OF  10  - 
UNTIL  THE  VALUES  ARE  INTEGER.) 


CEF IN IT ICN  OF  VARIABLES: 

ASAR(I.J)  a TIME! I . NK( I )♦ I— J ) ♦ XNODE (OR  I G(  I ) )— XNODE ( TERM ( I ) ) 
Ctl.J)  = DECREASE  IN  I TH  ACT'S  COST  PER  UNIT  FOR  J TH  TIME 
CAP  * MINIFLOW  REACHING  ORIGIN  NODE.  EXCESS  CAPACITY  TO 
TERMINAL  NODE) 

COST  1 1 . J)  * COST  OF  COMPLETING  ACTIVITY  I AT  TIME!  I. J) 

DEL  a MINIDELTAI. DELTA2 ) 

OELTA1  = MINI— ABARI I. J ) WITH  I LABELEO  AND  J UNLABELED. 

ABAR  tl.JXO) 

DELTA2  z MINI ABARI I. J)  WITH  I UNLABELEO  AND  J LABELEO. 

ABARI I. J)>0) 

OIRECIJ)  = DIRECTION  OF  FLOW  REACHING  NODE  J 
I 0=FCRW ARD.  I = REV  ERSE ) 

FLOW  1 1 . J)  a FLOW  IN  J TH  PIECE  OF  ACTIVITY  I 
INF  = ANY  NUMBER  GREATER  THAN  MAXICAP) 

I CURRENTL Y SET  AT  1 2* MAX  ♦! ) ) 

Kill)  = THE  NUMBER  OF  THE  TIME-COST  PIECE  USED  IN 
LABELING  TERM  I I ) FROM  ORIGtl) 

MOUNT  * KEEPS  TRACK  OF  OROER  IN  WHICH  NODES  WERE  LABELEO 
LABELI 1 ) = 0 IF  NODE  I UNLABELEO 
1 IF  NODE  I LABELED 

L INPUT  a SPECIFIC  VALUE  OF  LAMBDA  IF  TEST 3= 1 OR  2 
NA  a TOTAL  NUMBER  OF  ACTIVITIES 
NKI I ) a NUMBER  OF  DIFFERENT  TIMES  AND  COSTS  FOR  ACTIVITY  I 
NN  = TOTAL  NUMBER  CF  NODES 
ORIG(I)  a ORIGIN  NODE  FOR  ACTIVITY  I 
CRIG2CI)  a WHERE  THE  FLOW  IS  FROM  - USEO  IN  LABELING  ONLY 
PCOST  a PROJECT  COST  FUNCTION 
SINK  a NUMBER  OF  THE  SINK  NCOE 
SOURCE  a NUMBER  OF  THE  SOURCE  NOOE 
TERM  1 1 ) a TERMINAL  NOOE  FOR  ACTIVITY  I 

TEST!  a OPT I CN  TO  SUPPRESS  PRINTING  OF  INPUT 
(OaPRINT.  I*NO  PRINT) 

TEST2  a OPTION  TO  SUPPRESS  INTERMEDIATE  OUTPUT 
(OaPRINT.  1 =N0  PRINT) 

TEST3  a OPTION  TO  SPECIFY  VALUE  FOR  LAMBOA 

<0=N0.  la YES  AND  SEE  INTERMEDIATE  OUTPUT. 

2aYES  BUT  NO  INTERMEDIATE  OUTPUT) 

TIME(I.J)  = J TH  BREAKPOINT  (DURATION  TIME)  FOR  ACTIVITY  I 
X ACT ( I ) a ACTIVITY  DURAIION  TIME 
XNODE ( I ) a NOOE  TIKE 

XO  IFF ( I ) a XNODE ( OR  I G ( I ) ) — XNODE (TERM(I)).  AN  UPPER  BOUND  ON 
THE  ACTIVITY  DURATION  TIME 
I • J .K . M . N .P  a INDICES 
1NC0E. I TERM. I ACT • I OR IG. (CIFF.ETC. 

a NON-INGEXEO  VERSIONS  OF  XNOOEC I I . TERM! I ) . XACT ( I ) . 
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9 
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24 
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26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 
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53 

54 

55 
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C ORIGI I),XD1FF( I). ETC*  61 

C 62 

C***********************************************************************  63 

C 64 

C FOR  THE  SAKE  OF  IDENTIFYING  THE  APPROPRIATE  DIMENSIONS.  LET  65 

C MM AX  a THE  MAXIMUM  NUMBER  OF  ACTIVITIES  IN  THE  ORIGINAL  66 

C PROJECT  NET  YORK  67 

C LNMAX  * THE  LARGEST  NODE  NUMBER  ALLOWED  IN  THE  PROJECT  NETWORK  6B 

C BKMAX  a THE  MAXIMUM  NUMBER  OF  BREAK  POINTS  ALLOWED  IN  THE  69 

C ENTIRE  PROJECT'S  TIME-COST  CURVE  70 

C NCTMAX  a THE  MAXIMUM  NUMBER  OF  COMPLETION  TIMES  ANO  COSTS  FOR  71 

C EACH  ACTIVITY  72 

C CURRENTLY.  MMAXalOOOl  LNMAX=9999;  BKMAX=3000;  NCTMAX=6  73 

C 74 

C DIMENSION  CAP(LNMAX) ,FLOW( MMAX, NCTMAX) ,C( MMAX. NCTMAX ) «GRIG( MMAX) . 75 

C * TERM! MMAX ) .TIME! MMAX .NCTMAX ).CGST( MMAX , NCTMAX) «NK( MMAX » . 76 

C * AbARIMMAX, NCTMAX). XDIFF(MMAX) .XNOOEILNMAX ) . XACT (MMAX ) . 77 

C * DIRECILNMAX ). LABEL (LNMAX). K1 (LNMAX ). OR IG2ILNMAX).  76 

C * KOUNT  < LNMAX  > . AORD ( MMAX ) «ND (LNMAX). NOD (LNMAX ) * I P ( MMAX ) . 79 

C * CTIME(MMAX).FILE0(8KMAX).FILE6(2.MMAX).NUMS(MMAX)  80 

C 61 

C 83 

IMPLICIT  INTEGER *21  A— 2 ) 84 

I NT EGER44  NA .NN . OR  I G. TERM. NK . I , SOURCE . S I NK. NUMS1  1 000 ) .LNCOEN  85 

REAL44  CAP19999) .FLOW! 1000.  6>.C<1000.  6 ) . PCCST . INF .PCOST I . T T.  86 

1KCCST , ACCST  , PNEW  87 

CCMMCN  ORIG. TERM, NK. NA.LNCDEN. TIME. CT I ME .XNODE. AGRO.LM IN.LM AX.  68  . 

• TEST  1 89 

C I MENS  I CN  ORIGI 1000) .TERM!  1000) . TIME! 1000,  6 ) .COST!  1 000 . 6).  90 

*NK(  1000)  .ABARl 1000.  6)  .XD IFF  1 1 000) • XNODE (9999 ) .X ACT  I 1000  ) . 91 

4K 11 9999) .ORIG2I 9999) .KOUNT (9999). AORD (1000). CT I ME!  1000).  92 

*01 REC (9999) .LABEL! 9999) .NO 19999) ,N00 1 9999) . I P{ 1000)  93 

INTEGER  F0/8/.FI/9/,  F6/14/  94 

DIMENSION  F 1LEO (2000) «F1LE6( 2. 1000)  95 

WR1TEI6. 1500)  96 

1500  FORMAT ( 1H 1 , 1 32 ( ***)/lX.l 32 (•*•)/• OTH I S IS  THE  OUTPUT  FROM  THE  DETE  97 

*RMI N1 ST IC  PROJECT  SCHEDULER 1 DPS • //l X , 1 32 < • • • )/l X . 1 32 ( • • • ) ) 98 

99 

INPUT  DATA  100 

101 

REWIND  FO  102 

REWIND  FI  103 

KKKKaO  104 

RE AO ( FO ) NA. NN, SOURCE. S I NK.LNOOEN .NUMS . ORIG. TERM, NK  105 

IN F=0.  106 

PCCSTaO.  107 

READ(F1)TEST1.TEST2.TEST3.LI  NPUT  108 

00  12  lal.NA  109 

KNaRK(I)  HO 

READ(F1)(T I ME ( I . J I • J* 1 ,KN) . ( COST ( I • J ) . J- 1 • KN  ) 111 

KRlaKN-1  112 

DO  12  Jal.KNt  113 

REAC(Fl)  114 

CONTINUE  115 

IF ( TEST  1 .EQ . 1 ) GO  TO  401  116 

WR I TE ( 6 • 1 50 ) NN.NA. SOURCE. SINK  117 

1 CALL  CRDER  118 

119 

SET  UP  INITIAL  VALUES  120  ./ 


121 


IF ( TEST l .EQ. I ) GC  TO  193  122 

K3* 1 123 

192  K2=K3+ 8 124 

IFtK2.GT.LNuDEN)K2*LNCDEN  125 

4RITE16.1S1 ) 1K.K*K3.K2)  126 

4RITE16.157)  ( XNOQE1K) .K=K3.K2)  127 

IF1K2.GE.LNUDEN1GO  TO  191  128 

K3=K2+1  129 

GO  TO  192  130 

191  XRITE16.1S2)  131 

193  OC  10  1*1. NA  132 

LABEL (11 =0  133 

XD  IFF { I ) = XNCUE ( OR I G ( I 1 ) — XNCOE ( T ERM1  1 ) 1 134 

NKM1=NK1I)-1  135 

KN-NK ( 1 ) 136 

00  9 J* 1 « NKM 1 137 

TT=T  IME 1 I .J4l )-T IMEl  I • J)  138 

IF<TT)7.8.7  139 

7 CtI.J)=l COST ( 1 • J 1— COST tl.J+lll/TT  140 

GC  TC  6 141 

ecu. j 1 = 0.  142 

6 IFtINF.LT.Ct  I.J11  1NF*C(I.J)  143 

XACT1 1 )=XOIFF( 1)  144 

IFiXACT 1 I l.LT.T IMEl  I . J*1  ) ) X ACT t 1 ) = T I HE ( I . J + 1 ) 14b 

JJ*NK1I)-J+1  146 

A BAR (I«J)*T1MEI  I . J J 1 FXD  IFF  1 I 1 147 

FLO»  1 I « J)  = 0 148 

9 CONTINUE  149 

F ILE6 1 1 » I 1 = 0 ISO 

F1LE612.I >=XACT( I ) 1SI 

ABAR1  1 iKN  )=T  IHt  ( I • 1 I 4X0  IFF  t 1 ) 152 

FLC»l  I .KN)  = 0 153 

IFlTESTl.EQ.il  GO  TO  10  154 

4RITE16. 1S31NUMS1 1 ) .XACT1  I ). CRIG1  I). TERM  < I ) , 1 J, T I ME!  1 . J 1 .COS T { I . J 1 155 

*.C( I. Jl.ABARl 1 , J).J=1 ,NKM1 1 156 

4R1TE16.1S6)  KN.TIMEI I.KN). COSTI I.KN). ABARt I.KN)  157 

10  CONTINUE  158 

MRITE1F6) ( (F1LE6  1 I . J ). 1*1.2) . J* 1 ,NA ) 1 59 

I NF*2. • I NF* l . 160 

00  417  1*1. NA  161 

Cl  I.NK1 1 ) )*0.  162 

NKM1=NK1I)-1  163 

PCCS  T 1*0 • 164 

1 KK*0  165 

OO  418  K*1,NKM1  166 

IF1K.NE.1)  GO  TO  40  167 

XI J*XACT( I ) 168 

1F1X1J.GT.T  IMEl I .2)  1 X I J*T I ME ( 1 , 2 ) 169 

GO  TO  41  170 

40  XIJ  = XACT ( I I — T IMEC  I » K ) 171 

IFtXlJ.LT.O)  XlJ  = 0 172 

IF (X  1 J.GT.ll IMEl  I »K+ 1 I— T 1 ME (I.KI))  XI J=T I ME ( I » K ♦ 1 l-T  IMEl  I ,K)  173 

IFtIKK.EC.l)  GO  TO  41  174 

IF1C1  1 .Kl.GT.Ct I .K-l ) ) GO  TO  SO  175 

41  PCCSTl=PCGSTl*Ct 1.KI4XIJ  176 

GC  10  418  177 

SO  IKKsl  178 

XRITE16.2J7)  I.I  179 

PCOS  T 1=PC0ST1 *C 1 !.K)4XIJ  180 

418  CONTINUE  181 

PCCS T*PCOSTFCOST 1 1 . 1 ) 4C 1 1 . 1 ) • T I ME  1 1 . 1 l-PCOSTI  102 
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PN  c 4 = PC  CST 

♦17  CONTINUE 

LAMUDA=LMAX 
KKKK=KKKK+1 
FILEC(KKKK)  =LAMBOA 
IF  ( TEST  3 .GE • 1 ) GO  TC  700 
4RI Tfc(6 . 1541 
1.  INPUT=0 
GC  TC  S6 
700  CONTINUE 

IF(LINPUT.LT.LMIN)  GO  TO  705 
IF (L INPUT. GE.LNAX)  GC  TO  704 
IF  (TESI3.EU.2)  GO  TO  724 
HR  1 T t ( 6 . 15b ) LINPUT 

96  WRITE(6.200)  LAMBDA.  PCOST 
IF ( TEST2.EQ. 1 .OH. TEST3.GE.1 ) GO  TO  724 
«RITE(6.23b) 

724  CAP( SOURCE )= INF 
I TER=0 

99  LABEL (SOURCE  1=1 

IF( TEST2.EQ.  I . UR.TESTJ.GE.il  GO  TO  97 
I TEP= I TER* 1 
AR1TEI6, 225 ) ITER 

INITIAL  LABELING  ITERATION 

97  1 = 1 
J=S0URCE 
M=0 

IF  ACTIVITY  STARTS  AT  DESIGNATED  ORIGIN,  TRY  TO  LABEL, 
OTHER A 1 SE • CHANGE  ORIGINS. 

14  IF  ICR IG( I I .NL. J ) GO  TO  13 
I T ERM=  TERM(  I ) 

CHECK  IF  NODE  ALREAOY  LABELED  AND 
CHECK  IF  ABARI  I ,NK(  l I 1 = 0. 

IF  (LABEL! I TcRMl .NE.O.OR. ABARI I . NKI  I I I.NE.O)  GO  TO  13 
IF  NODE  NOT  ALREAOY  LABELED  AND  ABAR ( I , NK ( 1 1 I =0 . 

PRCCEDE  AITH  LABELING. 

LABEL  I ITERM )= 1 
OR  1 G2 ( I TERM ) = J 
K 1 ( ITERM)=NK( I I 
OIREC ( I T ERM 1= 1 
CAP ( 1 TERM)=INF 

IF(TEST2.EQ.l .0R.TEST3.GE.il  GO  TO  403 
ftRITE (6. 201 ) I TERM. OR  I G2 I I TERM) ,K1 ( (TERM) 

IF  CAN  REACH  SINK.  TERMINATE  (IMPLIES  INFEASIBLE) 

403  IF  { (TERM. EO. SINK)  GO  TO  15 
M = M + 1 

KCUNT ( M )= ITERM 

IF  EVERY  PATH  TESTED  AND  INFINITE  FLOW  NCT  P CSSI8LE, 

GO  ON  TO  LABELING  PARTI  I I I. 

13  1=1+1 

IF  (I.GT.NA)  GO  TO  11 
GC  TC  14 

CHANGE  DESIGNATED  ORIGINS. 

II  IF  ( 3. EO. SOURCE)  P= I 
IF(P.GT.M)  GO  TO  16 

IF  ALL  LABELED  NODES  HAVE  BEEN  SCANNED  AND  NO  NEM  NODES 
HAVE  BEEN  LAUELEO.  GO  ON  TO  LABELING  PART  (II). 
J=K0UNT(P) 

P = P+  1 
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GO  TC  14 

15  IF ( TEST3.GE . I I GO  TO  404 
WR I TE ( 6 , 202  I LAMBDA 

404  GO  TC  999 

16  IF!TEST2.EQ.I.0R.TEST3.GE.t)  GO  TO  405 
WRITEI6.203) 

NEXT  LABELING  PROCEDURE 

405  1=1 
J=SOUHCE 

AGAIN.  CHECK  ALL  CONDITIONS  FOR  LABELING 

IE.  CHECK  IF  NODE  IS  ALREADY  LABELED.  IF  ABAR(I.J>=0.  AND 
IF  THE  FLOW ( 1 . J I IS  LESS  THAN  ITS  UPPER  BOUNO. 

20  IF  iORIGlII.NE.J)  GO  TO  24 
ITERM  = TERM{ I I 
KN  = NK ( I ) 

00  25  K=1.KN 
IF  (K.EO.KN)  GO  TO  27 

IF (LABEL!  I TERM ) . NE . 0 .OH  * A8AR ( I .K ) .NE. 0. OR .FLOW! I .KI.GE. 

1  I C ! I . NK ( 1 )— K I— C ( I . NK  ( I I — K4 1 1 ) I GO  TO  25 
OIREC! 1 TER  M I = I 

CAPACITY  IS  MIN  OF  PREVIOUS  FLOW  AND  THE  EXCESS  CAPACITY 
CAP! ITERM)=C! I .NKI I)-K)-C( I . NK ( I I-K41 ) - FLOW(l.K) 

GO  TO  23 

27  I F I LABEL ( ITERM ) .NE. 0 .OR . AB AR ( I ,K I .NE .0 .OR .FLOW ( 1. KI.GE. INF) 

1 GO  TO  25 

IF  THE  NOCE  HAS  NOT  ALREAOY  BEEN  LABELED.  ABAR(I.J)=0.  AND 
THE  FLOW  IS  LESS  THAN  ITS  UPPER  BOUND.  PROCEOE  WITH  THE  LABELING 
OF  THE  NOOE. 

OIRECI1T  ERM)  = I 
CAP! ITERMIsINF 

23  LABEL! ITERM J=1 
CRIG2I1 TERM ) = J 
K 1 ( 1TEPN)=K 

IF  I CAP (IT  ERM I . GT  «CAP(0RIG<1 ) ) ) CAP I ITERM )*CAP { OR IGI I ) I 
IFITEST2.E0.1. 0R.TEST3.GE.il  GO  TO  406 

WRITE (6. 204 ) 1 TERM, OR  I G2 ( I TERM ) . K 1 ( I T ERM } , 0 IREC ( I TERM}, CAP! ITERM) 
C ^IF  SINK  LABELED.  GO  TO  UPDATE  PROCEDURE 

406  3F  1 ITERM. EQ. SINK)  GO  TO  21 
?M  = M*» 

KOUNT (M )= ITERM 

C CHECK  IF  ALL  PATHS  TRIED 

25  CONTINUE 
GO  TO  19 

24  IFITERM(I).NE.J)  GO  TO  19 
IORI G=QR IG! I I 

KN=NK| I ) 

DO  26  K= 1 , KN 

IF (LABEL 1IORIG) . NE.O .OR . AB AR ( I , K ) .NE .0 .OR .FLOW! I .KI.LE.O) 

2 GO  TO  26 
OIRECi I OR  I G I =— I 
CAP!  I OR  I G )=FLUW ( 1 .K) 

LABEL ( 10R IG 1=1 

OR IG2 1 1 OR  I G) ■ J 
K 1 I ION  I G )*K 

IF (CAP! IORIGI.GT .CAP! TERM! I ) ) ) C AP 1 I OR I G I *CAP( TERM! I I I 
IF! TEST2.E0.1 .OR*  TEST3 . Gt . 1 I GO  TO  402 

WRITE (6. 204  I I OR IG .OR  I G2 1 1 OR  I G I . K 1 1 I UR I G I .0 1 REC ( I ORI G I .C AP( I CR I G ) 
402  M=M+1 
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KOUNT ( M ) = I Un 1 u 305 

26  CONTINUE  306  < 

19  1*1*1  307 

IF  (l.GT.NA)  GO  TO  id  308 

CO  TO  20  309 

18  IF  ( J.EO. SOURCE)  P=l  310 

IF  (F.GT.M)  GO  TO  22  311 

J=K0UNT IP)  312 

P=P* 1 313 

1=1  31* 

GC  TO  20  315 

C 3 16 

C N0N8REAKTHRUUGM  HAS  OCCUHED.  DELTAS  ARE  FOUND  AND  UPDATING  317 

C MADE  IN  THE  XNUOES  ANO  XACTS.  318 

C 319 

22  CELTA1=INF*1  320 

OELTA2=INF*l  321 

OC  4 1=1. NA  322 

KN=NK 111  323 

IF  ( LABEL ( ORIG( l ) >.EO. 1 .AND. LABEL! TERM! I ) ).EO.O)  GO  TO  1 32* 

A 1 IS  SET  OF  I LAdELEQ  ANO  J UNLASELED.  325 

A2  IS  SET  OF  I UNLABELEO  ANO  J LABELED.  326 

IF (LABEL <CR1G( 1)  ) .EO.O . ANO.LA0EL ( TERM ( I ) ).EQ.  1 ) GO  TO  2 327 

GG  TO  * 328 

C F1NCING  CELT  A 1 ' S . 329 

1 OC  3 J=l ,KN  330 

IF  ( A EAR ( 1 . J ) . GE .0  ) GO  TO  3 331 

IF  (-AEAR1 I . J) .LT.OELTA1 1 CELT A 1 =-AB AH ( l . J ) 332 

3 CONTINUE  333 

GC  TO  4 334 

C FINDING  OEL  T A2  * S 33S 

2 00  5 3=1. KN  336 

IF1ABAR! I . J1 .LE.01  GO  TO  4 337 

IF  (ABAR(I,J).LT.DELTA2)  DEL  T A2  = ABAR1I.J)  338 

5 CONTINUE  339 

* CONTINUE  340 

C 0EL=NIN(DELIA1 .DELTA21  3*1 

DEL=0ELT  A I 3*2 

IF  (OELTA2.LT. OEL)  OEL  = DELT  A 2 3*3 

L AMBCA=LAMBO A— DEL  3*4 

KKKK=KKKK* 1 34S 

FILEO(KKKK)=LAMBOA  346 

C UPDATING  THE  XNOOfcS.  347 

IF ( TEST2.EQ. 1 .OR. TEST3.GE . 1 > GO  TO  407  348 

*R 1 T E ( 6 « 206 ) LAMBDA  349 

*07  IF  (TEST3.EQ.2)  GO  TC  721  350 

DELTA*  LAMBDA  * DEL  351 

*R I TE ( 6 .209 ) DEL. DELTA. LAMBOA.CELTA  352 

721  IF(TEST2.EQ.l. 0R.TEST3.GE.il  GO  TO  406  353 

*R I T E ( 6 . 207 ) 354 

408  DO  80  1 = 1 .LNODEN  35S 

1NCDE=XNCDE( 1 ) 356 

IF (LABEL! 1 ) .EO.O)  GO  TO  81  357 

lF(TEST2.ECl.l.  OH  .TEST  3.  GE  • 1 ) GO  TO  409  358 

»RITE(6,210)  I. INODE  359  * 

409  XNODE ( I ) = I NODE  360 

GC  TC  80  361 

61  IF( TEST2.EO. 1 . OR . TE ST J . GE . 1)  GO  TO  *10  362 

*RITE(6.21l>  1 . I NODE  363 

410  XNCDE  ( I ) = INCOE-DEL  364 

80  CONTINUE  365 
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C OPO  A TING  THE  XACTS  (3  PARTS) 

IF  (TEST3.EQ.2)  GO  TO  722 
fefiITE<6.212)  OELTA 
722  FCCST=0. 

OC  82  I=1»NA 
IPtI 1=0 
PCOST 1 = 0. 

NKMl=KK( I )-l 
I ACT— T I ME ( I .NK ( I ) ) 

IOR I G = Cfi  IG ( 1 ) 

ITERM=TERM( I) 

10 IFF=XNGDE ( I TERM 1 — XNODE ( I OR  I G ) 

XOIFF(  1)=— IOIFF 

IF  I I01FF.GE.1ACT)  GO  TO  86 

XACT ( I ) = IOIFF 

00  SSC  K=t.NKMl 

IFIK.KE.l)  GO  TO  43 

XI J=XACT( I ) 

IFlXIJ.GT .TIME ( 1.2))  XI J-T I ME  1 1 . 2 ) 

FLAG1-0 
GO  TO  42 

43  XIJ-XACTI I )-T IME( I.K) 

IF(XIJ.LT.O)  GO  TO  552 

IFlXIJ.GT. I TIME! I. KM )-T!M£(  I.K)))  XI J*TIME( I . KF l ) -T I ME ( I , K ) 
FLAG  1 = 0 
GO  TO  42 

552  FLAG  1 = 1 
FLAG2=K-l 
GC  TO  553 

42  PCCST 1=PC0ST1FC( I.K)4XIJ 
550  CONTINUE 

553  KCCST=COST( I .1 )FC( I • 1 )*T IME( 1.1) 

AC0ST=KC0ST-PC0ST1 

pccst=fcost* acost 

IF  (LABEL!  I OR  I v.) -LABEL!  1TERM)  ) 83.84.85 
83  1 0 1 F F—  1 0 IFF— DEL 
FILE6! 1 . I )=1 
F1LE612.  I )* ID  IFF 
IF  ( TEST3.EQ.2)  GO  TO  82 
IFIFLAG1 .EQ.l ) GO  TO  59 
ACCST  = ACOST  ♦ C(  I . NKM1  ) 40EL 
IPII )*t 

MRITE16.214 )NUMS 1 1 ) . 1 0 1 FF. ACOST .C ( I . NKM I ) 

GO  TO  82 

59  ACCST=ACOSTFC( I .FLAG2)*0EL 
IPII )=1 

MRITEI6.214) NUMS ( I ) . 1 0 1 FF . ACCST , C ( I . FLAG2 ) 

GC  TC  82 

84  F ILE6 ( 1 . I ) = 0 

F ILE6 ( 2 • I ) = XACT ( I ) 

IFITEST3.E0.2) GO  TO  82 
■ RITE (6. 2 1 6) NUMS! I ) . XAC T( I ) . ACOST 
GO  TC  82  I 

85  I01FF=IDIFFFD£L 
FILE6! I ,1)*— I 
F ILE6! 2 • I )* IOIFF 
IF! TEST3.EQ.2)G0  TO  82 
IF! FLAG 1 .EQ . I ) GO  TO  58 
ACOST sACO ST  - C( I . KKM1 ) *OEL 
IPII  ) = 2 

4RITE(6.2i3)NUMS( I ) . I O IFF . ACCST . C ( I . KKM1 I 
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58 

86 

45 

46 

55  l 


ez 


723 

c 

c 

87 

420 


500 


86 


CC  TC  82 

ACCS  T = ACOST  — C( I • FLAG2  > *OEL 
IP ( I ) =2 

»R I TE ( 6. 2 13) MUMS < 1 I • 1 JIFF. ACOST . C< I . FLAG  2 I 

GO  TO  82 

X AC T I I )= (ACT 

OC  551  X— l . NKM1 

IF(K.NE. I ) GO  TO  45 

XI J=XACT ( I ) 

IF (XI J.GT.TIMEI I .2) J X I J- T I ME  ( I . 2 > 

GC  TC  46 

XI J=XACT( I >— T I ME ( I .K ) 

1FIXIJ.LT. 0)  X1J=0 

IFIXlJ.GT  «(T I ME ( I .KH 1 ) — T IME ( I.K))>  X I J=T  1 ME(  I . K ♦ 1 ) — T I ME ( 

PCOS  T 1=PCOST1hC(  1.KI4XI  J 

CONTINUE 

KCGST— COST ( I . I ) + C ( I . 1 ) • T I ME  ( I . 1 ) 

ACC S T= NCOS T— PCOS T 1 

PCOST=PCCST ♦ ACOST 

FILE6I l . I > = 0 

FILE6I2. I ) — X AC T ( I I 

IF  ( TEST  J.EQ.2 ) GO  TO  82 

MR  I TE ( 6.2I6)NUMS(  I ) . XACTI  I I. ACOST 

CONTINUE 

■ RITE (F6>  < (F ILE6< I . J » . I = 1 .2 ) . J* 1 .NA I 
IF  (TEST3.E0.2I  GO  TO  723 

PCOST 1 =PNEW 
PNEM= (PCGST-PNE* I/DEL 
■R I TE ( 6 • 224 ) PCOSTI.PNEM 
PNEW-PCCST 

IF  ( TEST3.NE.0.AND. LAMBDA. LE.LINPUT)  GO  TC  703 
RESET  LABELS  TO  0 ANO  REFIGURE  ABARS • 

THEN  START  OVER. 

OC  87  1=1 .LNCOeN 
LABEL ( I 1 = 0 
CONTINUE 

IF ( TEST2.E0. 1.0R.TEST3.GE. t ) GO  TO  420 
«R!TE(6.2261  ( J . J= 1.11) 

00  88  1=1. NA 
NKM1=NK( I I- l 
00  SCO  K=1.NKM1 
J=NKM t *2— X 

ABAR( 1 . K I — T I ME( I • J ) 4X0 IFF (I  I 

ABAR ( I .NK( II )=T IME( I . 1 ) ♦ XDl FF ( I ) 

!F(T£ST2.EQ.l. OR .TEST3.GE.1 ) GO  TO  88 
NK1=NK( I ) 

■ RITE (6.227 INUMS ( I ) . ( ABAR ( I . J ) • J = 1 . NK  1 1 
CONTINUE 

IF  (LAMBOA.LT .LMIN)  GO  TO  998 
GC  TO  99 


.K> 


UPCATE  THE  FLOW  AFTER  BREAKTHROUGH. 


21  IF(TEST2.E0.1 .0R.TEST3.GE.I)  GO  TO  3« 

MRI TE ( 6. 2051 

34  FLOm ( I • K 1 (1  TERM I i=FLOM( I .Kl( I TER M ) ) HC AP( S I NK ) 
IF  OIREC  =0  THEN  CAP  AOOEC  TO  FLOW. 

IF  OIREC  =1  THEN  CAP  IS  SUBTRACTED. 

30  ITER»=CRIG2( ITERM) 

C CHECK  IF  BACK  AT  SOURCE. 

IF( ITERM. EO. SOURCE)  60  TO  33 
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448 
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460 
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467 

468 
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473 
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4 75 

476 

477 

478 
4 79 

480 

481 

482 

483 

484 

485 
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487 
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A 


n r>  a 


I *0 1 R EC ( 1 TERM ) «ee 

l*IABS(l>  489 

IF  (DIR EC ( (TERM) . GT • 0 I GC  TO  34  490 

FLO* (I .Kid  TERM) )*FL0M(I.K1 (1  TERM) l-CAPI SINK  I 491 

GC  TO  30  492 

C RELABEL  AND  START  OVER.  493 

33  IF(TEST2.EQ.1.0R.TEST3.GE.1>  GO  TO  415  494 

DO  560  1*1, NA  495 

NK1=NK(I)  496 

00  560  K*1,NK1  497 

560  MRI  TE  ( 6 .220)  MUMS  < I ) <K,FL0M(1  ,K)  498 

415  00  98  I=1,LN00EN  499 

LABEL ( 1 1*0  SOO 

96  CONTINUE  501 

GO  TO  99  502 

PROGRAM  TERMINATES  MHEN  EVENTUALLY  AN  INFINITE  FLOW  IS  ACHIEVED  503 

FROM  THE  SOURCE  TO  TNE  SINK,  OR  MHEN  THE  VALUE  CF  LAMBDA  DROPS  504 

BELOM  THE  MINIMUM  LENGTH  OF  THE  NETMORK.  505 

998  IF( TEST3.NE.0)  GO  TO  999  506 

MR  1 T E ( 6 ,202 ) LAMBDA  507 

GO  TO  999  508 

705  MR  I T E ( 6 , 233  I L INPUT , LM I N 509 

GO  TO  999  S10 

704  MRI TE (6,236)  LINPUT.LMAX  511 

MR  I T E ( 6.238)  LINPUT  512 

0=0  513 

OC  60  1*1 .NA  514 

60  IP(I)=0  515 

GO  TO  707  516 

703  MR  I TE ( 6 ,234 ) LINPUT  517 

706  MR!TE(6.238)  LINPUT  518 

0*L I NFUT— LAMBDA  519 

707  PC0ST*0«  520 

DO  57  1*1, NA  521 

IFDPII  l.EQ.l.AND.D.GT.O)  XACT  (II  *XACT(  1 ) -O  522 

IF(IP(I).EQ,2«  AND.D, GT • 0 ) XACT( 1 >*XACT( I >40  523 

PCOST 1*0 , 524 

NKM1=NK( I )-l  525 

OO  51  K* 1 , NKM 1 52  6 

IF(K.NE.l)  GO  TO  52  527 

X 1 J*  X ACT ( 1 ) 528 

IF(XI J.GT.TIMEI I .2) ) X I J=T I ME ( I . 2 1 529 

GO  TO  53  530 

52  XI J=XACT (I)— TIMEII.Ki  531 

IF ( X I J ,LT .0  > X IJ*0  532 

IF(X  IJ.GT . ( T 1ME( l,K411-TIME(  I.KII)  XIJ*TIME< l.K«l)-TIME(  I.K)  533 

53  PCOST 1 *PCGST 1 +C (1.K14XIJ  534 

51  CONTINUE  535 

KCOST*COST< I .1 >4C( I .1 )*TIME< I .11  536 

ACOST=KCOST— PCOST 1 537 

MRITE(6,216I NUMS ( I 1 , X ACT < I ) , ACOST  538 

57  PC0ST*PCGST4AC0ST  S39 

MR  1 T E ( 6 ,239  I PCOST  540 

999  MRITE(6,2281  541 

REAO(FO)  542 

MRI TE (FOI KKKK • ( F ILEO 111,1*1, KKKK I 543 

ENOFILE  F6  544 

ENCFILE  FO  545 

MR1TE(6«  2281  546 

STOP  547 

100  F0RMATU4, IX, 14. IX. II, IX, II. IX. 14. IX. 14. IX. Ill  548 


iso  format t rue  number  cf  nodes  is  *.  ia .*.*./. ix  . *the  number  of  ac  549 
1TIVITIES  IS  •. 14 .*.*./. IX, 'THE  SOURCE  NOOE  IS  NUMBERED  *.I4.*  ANO  550 

2TRE  SINK  NODE  IS  NU  MUE  RED  •.  1 4 .*•*./.*-•.  • *»  NODES:  **•)  551 

151  FORMAT l • 0* , IBX. *K* , 7X .91 JX. I 4,5X) ) 552 

152  FORMAT!*-*,*  **  ACTIVITIES:  * * • ./✓ . 6 X. • I • , 7X. • X ACT* ,6X , 'OR IG* , 3X.  553 

1 ‘TERM* ,4X .* J* ,6X. *T I ME*  ,9X,*CCST*,14X,*C*.I3X,*ABAR*  > 554 

153  FORMAT!*  • , JX.I 4 ,3X . I 10 ,3X. I 4. 3X . 14 . ( T39 . 12. 3X.  I 10, 3X,  1 1 0. 3X.  555 

IE  16 .5. 3X.  I 1 0 ) > 550 

154  FORMAT  I •-*,* THc  ENTIRE  PROJECT  COST  CURVE  WILL  BE  DETERMINED.*)  557 

155  FORMAT! •-*,* THE  OPTIMAL  ACTIVITY  COMPLETION  TIMES  FOR  A SPECIFIED  558 

1 PROJECT  CEAOLINE  TIME  = *,110,*  ARE  GOING  TO  8E  DETERMINED.*)  559 

156  FORMAT!*  • , T39, I2.3X . I 1 0.3X. I 1 0.22X.  I 10 ) 560 

157  FORMAT ! • 0 • , 4X, 'INITIAL  XNODE |K)'.3X.  561 

19! I 1 0 ,2X)  ) 562 

200  FORMAT i *0* , 'LAMBDA  = PROJECT  COMPLETION  TIME*.//.  563 

1 IX. 'THE  STARTING  VALUE  OF  LAMBDA  IS  *.110. *.*,//  564 

2 .IX. 'THE  CORRESPONDING  TOTAL  PROJECT  COST  IS  *.E16.5.*.*)  565 

201  FORMAT  I • 0 *.* THE  NOOE  *,I4.*  HAS  THE  LABEL  ( * . 1 4 . * . • , 1 4 , * , 0 . I NF ) . • ) 566 

202  FORMAT!  • 0* ,////. 30X. * * * * * **./////. IX.  567 

1 'THE  SINK  iff  A S REACHED  WITH  INFINITE  CAPACITY  IMPLYING  A 568 

IN  INFEASIBLE  SOLUTION  TO  THE  PRIMAL  PROBLEM  *./.20X,*IF  LAMBDA  DRO  569 

2PS  BELOW  ITS  CURRENT  VALUE.  *.110.*.*>  570 

203  FORMAT (•-*,* THE  SINK  HAS  NOT  BEEN  REACHED  WITH  INFINITE  CAPACITY  - 571 

1 CONTINUE  WITH  THE  LABELING  PROCESS.*./  .IX. 'THE  NODES  THAT  HAVE  572 

28c  EN  LABELED  WILL  RETAIN  THAT  LABEL  FOR  THE  REMAINDER  OF  THE  ITERA  573 

3T I ON.  • ) 574 

204  FORMAT  I • 0*  ,* THE  NODE  *.I4.*  HAS  THE  LABEL  ! * . 1 4 . • , • , I 4 . • , * . I 4 . * . * . 575 

1E16.5.*).*)  576 

205  FORMAT i •-*, ‘BREAKTHROUGH:  UPDATE  THE  DUAL  VARIABLES.*  577 

1.///.1X,*  ACTIVITY  *:  I*,3X.*J*,9X,*  NEW  FLO*:  Fil.J)*)  578 

206  FORMAT ! •- * . • NUNBREA K THROUGH : UPDATE  THE  PRIMAL  V AR 1 ABLE S 1 • • /. 1 X , 579 

1*1. E.  DETERMINE  OPTIMAL  ACTIVITY  TIMES  FOR  LAMBDA  = *.I10.*.*>  580 

207  FORMAT!*  *.*  NOOE  * i K*.5X,*NEW  VALUE!  XNOOE(K)*)  581 

209  FORMAT  !•-*,*  DELTA  1REPKESENTE0  BY  *'D**)  RANGES  FROM  0 TO*  562 

1 . 14  ,*.*•/, IX. 'LAMBDA  RANGES  FRCM*,I10.*  TO • , I 1 0 . * . * . 583 

2 /.IX. 'THE  MINIMUM  COST  PROJECT  SCHEDULE  FCR  PRO  584 

3JECT  OEACLINE  = *.I10.*-0:*)  585 

210  FORMAT!*  * . 7X . I 4 . 1 2X . 1 I 0 ) 586 

211  FORMAT!*  * . 7X. 14 . 12X. I 1 0. *-D* ) 587 

212  FORMAT! •-*, 'PROJECT  COMPLETION  TIME  = *. I 1 0 . *-0 .*,//. 1 X . 588 

1 • ACTIVITY  #:  I * ,3X, • NEW  VALUE!  XACT ! I )*,9X, 'ACTIVITY  CO  589 

2ST • ) 590 

213  FORMAT  ! * * . 5X  .I4.12X.I  10,*  — D '.9X.E16.5.*  ♦ ! • .E  1 3 .5  . * 4>D  ) • ) 591 

214  FORMAT!*  • , 5X . I 4 . 12 X , I 1 0 . • +0  * . 9X , E 16 . 5.  • 4 I * . E 1 3 .5 . * * 0 ) • ) 592 

216  FORM  A I ( • • ,5X. 14 . 12X. I 1 0. 1 1X.E 1 6.5)  593 

220  FORMAT!*  * . *2X, 14, 2X, I2.7X.E16.5)  594 

224  FORMAT! • 0* ,* THE  CURRENT  VALUE  CF  THE  PROJECT  COST  IS  *.E16.5.  595 

1*  ♦ (*.E13.5,**D).* ) 596 

225  FORMAT!*-*  ,*♦**  ITERATION  NUMBER *. 16 . • *4**)  597 

226  FORMAT!  •-*, *NEW  VALUES  OF  ABAR  FOR  J=l«2«...  . NK ( I )*,//. 6 X. * I • • 3X  . 598 

1 * J : * . 1 1! £X. I2.3X) ) 599 

227  FORMAT!*  • .2X.14.7X.1 1! I8.2XI ) 600 

228  FORMAT  1 1 H 1 I 601 

230  FORMAT! I 4, IX. 14. IX. 12)  602 

231  FLRM  AT  I 8 I 1 0 ) 603 

232  FORMAT! I 10)  604 

233  FORMAT !•-*,• THE  SPECIFIED  VALUE  CF  LAMBDA .*,110.*. IS  LESS  THAN  THE  605 

I MINIMUM  VALUE. •• 1 10 .*.  IMPLY ING  AN  INFEASIBLE  SOLUT 1 ON .*.//.  IX . 606 

2 • THE  PROBLEM  WILL  NOT  BE  WCRKEO.*)  607 

234  FORMAT! • l *,* THE  SPECIFIED  VALUE  CF  L AMbD A, * . I 1 0 . * . HAS  BEEN  REACHED  608 

1 • ' ) 609 
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2 35  FCRMATi'O*.  'THE  SOURCE  HAS  A VALUE  OF  ZERO  ANO  IS  ASSIGNEO  THE  610 

3LABEL  !-•-•-. INF!.* ,//  ) 611 

236  FORMAT! •-•••THE  SPECIFIED  VALUE  OF  LAMBDA,  ‘.IIO.'.IS  GREATER  THAN  612 

1  OR  EQUAL  TU  THE  MAXIMUM  VALUE  « • • I l 0 . • i • .// . 613 

I IX  • • THEREFORE « THE  ORIGINAL  614 

2XNC0E ( K ) • • S ANO  XACTIt)(*S  APE  OPTIMAL.*!  615 

237  FORMAT  C • •.•**  WARNING:  ACTIVITY  NUMBER  '.lA.*  HAS  A NON-CONVEX  C 616 

1 OS  T FUNCTION! •./. 12X, • I E.  THE  C { • , I 4 , • , M | • • S ARE  NOT  NON- I NC RE AS  I N 617 

2G.M  618 

238  FORMAT! •-•, *FOR  PROJECT  COMPLETION  TIME  * •,I10.*.  THE  CPTIMAL  SOL  610 

1UTICN  ISI*. //.IX.  620 

I • ACTIVITY  *:  I * ,3X  , * NEW  VALUE:  XACT I I ) • . 9X . • AC T l V I TV  CO  621 

2ST  * ) 622 

239  FORMAT! •-••• THE  CORRESPONDING  PROJECT  COST  IS  >.E16.S<*.>)  623 

ENC  624 

SUBROUTINE  ORDER  625 

C 626 

C THIS  SUBROUTINE  DETERMINES  THE  ORDER  IN  WHICH  TO  CONSIDER  627 

C THE  ACTIVITIES  FOR  THE  CALCULATION  OF  THE  CRITICAL  PATH  TIME  628 

C 629 

IMPLICIT  INTEGER42! A-Z)  630 

INTEGER44  NA . NN . OR 1 G . TERM . NK .LNODEN  631 

CCMMCN  ORIG.TERM.NK, NA.LNCOEN, T IME.CT IME.XNOOE. ACRD.LMIN.LMAX.  632 

♦ TESTI  633 

C * MENS  ION  OHIGI 1000) . TERM! 1000), AOROI 1000) .CTIMEi 1000) . 634 

• .NODE  19999) • NO! 9999 ) , NDD ! 9999 ) * 1 1 ME  I 1 000 • 6>*NK!  1000  ) 635 

N*LNGDEN  636 

M*NA  637 

NOD! 1 )*  l 638 

DC  S 1*2. N 639 

5 NDD ! I ) * 0 640 

OC  6 1*1. M 641 

6 AORD i I ) *0  642 

K*0  643 

WP*M4l  644 

00  1 11*1. MP  645 

DC  20  1*1. N 646 

20  NO II) = NDO ! I ) 647 

111=0  648 

IP* I I ♦ 1 649 

00  2 J* 1 t M 650 

IFINOIORIGI J) ) .NE. 1 1 ) GO  TO  2 651 

NOOI 1ERMIJ) ) = I P 652 

111*1  653 

IFIK.EC.O)  GO  TO  14  654 

DO  10  L*1.K  655 

IFIAORCiLI.EQ. J)  GO  TO  11  656 

10  CONTINUE  657 

|4  K*K«1  658 

GO  TO  13  659 

11  IFIL.EC.K)  GO  TO  2 660 

KM*K-1  661 

DO  12  LL*L,KM  662 

12  ACR0(LL)*A0RL)ILL41|  663 

13  AORD I X ) * J 664 

2 CONTINUE  665 

IF i I I I .EG .0  > GO  TO  3 666 

I CONTINUE  667 

3 CONTINUE  . 668 

DO  30  1*1 .NA  669 

30  CTIMEI1  )*T1ME! I. I)  670 
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LMlN=CPTIME(CPATHT>  67  1 

00  31  1 = 1*  NA  672 

AK  l = AK ( I ) 673 

31  CT  IMEI  I t=TIME( I.NK1  I 674 

LMAX=CPT I ME( CPATHT 1 675 

RETURN  676 

ENC  677 

FUNCTION  CPT 1 ME (CPATHT)  676 

C 679 

C OETERMINE  THE  CRITICAL  PATH  TIME:  CPTIME  600 

C XNODE(I)  » EARLIEST  TIME  THAT  AN  ACTIVITY  BEGINNING  AT  NODE  I 681 

C CAN 'COMMENCE  602 

C 663 

IMPLICIT  INTEGER  42 ( A— Z I 604 

INTEGEH44  NA . NN . OR I G . TERM . AK .LNOOEN  685 

COMMON  ORIG.TERM.NK.NA.LNCOEN.TIME.OTIME.XNODE.ACRO.LMIN.LMAX.  606 

6 TEST  1 607 

DIMENSION  ORIGl  l 000 ) . TERM < 1 0 00 > . AORD ( I 00 0 ) . C T I ME ( 1 000 ) . 600 

6 XNCOE I 9999 1 *N0(  9999 1 • NOD (9999 ) » T I ME ( 1 000  « 61.NKI1000)  689 

OO  1 1=1. LNOOEN  690 

1 XNCCE ( I 1 = 0 691 

00  2 11=1 iNA  692 

I=XoRD (III  693 

2 IFIXNODEIORIGI I ) )4CT  IMEI  I I.GT.XNOOEt TERM! I ) ) ) 694 

1 XNOOEl TERM! I 1 )=XNCDE (ORIGl I ) ) 4CT I ME(  1 > 695 

CPT I ME  = XNLOc ( T ERM( III)  696 

1I=ACR0|NA)  697 

RETORN  698 

END  699 
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3.  DSR 

C DETERMINISTIC  SCHEDULE  RESOLUTION  PROGRAM  i 

C 2 

C THIS  PROGRAM  ASCERTAINS  THE  OlSTRlBUT I ORAL  PARAMETERS  FOR  EACH  3 

C ACTIVITY  IN  THE  PROJECT  NETWORK  THAT  CORRESPOND  TO  THE  MINIMUM  4 

C COST  PROJECT  SCHEDULE  WHICH  YIELDS  A DETERMINISTIC  COMPLETION  S 

C TIME  OF  PO.  THIS  IS  DONE  f)Y  REFERRING  TO  THE  OUTPUT  FRCM  THE  6 

C DETERMINISTIC  PROJECT  SCHEDULER  WHICH  HAS  BEEN  STORED  ON  DISK.  7 

C 8 

C THE  ACTIVITY  DISTRIBUTIONS  ARE  USEO  BY  SIMPLIFICATION  ANO  9 

C INDIRECTLY  BY  SUBNETWORK  ANALYSIS.  10 

C 1 1 

C FOR  THE  SAKE  OF  IDENTIFYING  THE  APPROPRIATE  DIMENSIONS.  LET  12 

C MMAX  = THE  MAXIMUM  NUMBER  OF  ACTIVITIES  IN  THE  ORIGINAL  13 

C PROJECT  NETWORK  14 

C BKMAX  * THE  MAXIMUM  NUMBER  CF  BREAK  POINTS  ALLOWED  IN  THE  IS 

C ENTIRE  PROJECT'S  TIME-COST  CURVE  16 

C NCTMAX  x THE  MAXIMUM  NUMBER  OF  COMPLETION  TIMES  ANO  COSTS  FOR  17 

C EACH  ACTIVITY  18 

C CURRENTLY.  MMAXalOOOI  fiKMAX«3000I  NCTMAX*6  IS 

C 20 

C I NT  EGER  *2  BRE AK ( BKMAX I . F ILE6 ( 2 4MMAX ) , T YME ( NC TMAX  ) 21 

C DIMENSION  T1MEI4) .NCT ( MR AX ) . F ILEO ( 44MM AX4S I . NUMS ( MMAX I 22 

C EQUIVALENCE  I FI LEOI 34MMA  X 46  > • NC  Till)  23 

C 24 

1NTEGER42  NOR EAK .BRE AK I 3000 ) .F I LE6 ( 2000 ) . T YME ( 6 ) 25 

RE AL  48  AA, XM.UB. ALPHA, BETA  26 

DIMENSION  T 1 ME! 4 I .NC  T I 1000) «F ILE0I400SI . NUMS (1000)  27 

EQUIVALENCE  I FI LEOI  I I ,NA > . I F ILE 0 1 6 ) . NUMS < 1) ) .(FI LEOI  3006) »NCT( I ) ) 28 

INTEGER  F0/8/.FI/9/.F2/I0/.  F4/I2/.  F6/I4/  29 

INTEGER  NORN(S)/' NORM • , • AL • . 34 • • ✓ .BET ( 5 I / • BET A • . 4 4 • 30 

INTEGER  RECT (SI/'RECT* .' ANGU • , • L AR( * .'UNIF'. • ORM ) •✓  31 

INTEGER  F I XED( 5)/'F I XE • » ' 0 I CO • •• NST  A'.'NTI'.'  32 

C 33 

C FCR  EACH  ACTIVITY 34 

C USES  ORIGINAL  TIME  VECTOR  AND  RESULTS  OF  THE  DETERMINISTIC  PROJECT  35 

C SCHEDULER  TO  CREATE  A NEW  TIME  VECTOR.  THIS  DETERMINES  THE  ACTIV-  36 

C I TV  DISTRIBUTIONS  TO  BE  USEO  BY  SIMPLIFICATION  AND  INDIRECTLY  BY  37 

C SUBNET  ItORK  ANALYSIS.  38 

C 39 

WRITEI6. 1500)  AO 

1500  FORMAT! IH1.I32I  • 4' )/l X. 132C 4' )/'0THIS  IS  THE  OUTPUT  FROM  THE  DETE  41 

4RM IN I STIC  SCHEDULE  RESOLUTION  PROGRAM:  OSR'  42 

4//IX. I32( ••• )/l X. 1321 »4* ) ) 43 

REWIND  FO  44 

RE  a I NC  FI  45 

REWIND  F 2 46 

REWINC  F 4 47 

REWIND  F 6 48 

READIFOIF ILE  0 49 

READIED  50 

REAO(F4)NCVC.PO.NFLAG  5) 

WRITEI6.2000 IPO  52 

2000  FCRMATIIHO./'OT HE  MINIMUM  COST  PROJECT  SCHEDULE  FOR  A TARGET  TIME  53 

•CF  * .F 12.5. * IS  AS  FOLLUWS:'//'OACTIVITY:*.8X.  • MEA  54 

4N • ,8X, 'OISTRIUUT ION* . 14X. • PARAMETERS •/ I 55 

RE  AO  I F 0 ) 56 

RE AO (FO INBREAK .(BREAK  1 1 ) . I* I . NBRE  AK  I 57 

REWIND  F 6 58 

OG  I 1*1. NBRE AK  59 

J«!  60 
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1FIPC.GE. BREAK! J) )GO  TO  2 61 

1 CONTINUE  62 

NEB— BREAK (NuhLAK I 63 

WfiITEI6.lOO)NBB.PO  64 

100  FCRMATl IHO.'THE  SMALLEST  POSSIBLE  PROJECT  COMPLETION  TIME  BASED  ON  6E 

• NON— RANDOM  INDIVIDUAL  ACTIVITY  COMPLETION  TIMES  IS  *.110.*.*/  66 

••OTHE  OPTIMAL  ACTIVITY  COMPLETION  TIMES  FOR  A TARGET  TIM*.  • 67 

• E OF  * «E 14.5. • HAVE  BEEN  REQUESTED.*)  6B 

IFINFLAG.EQ.DGO  TO  300  69 

PD=NBB  70 

WRITEI6.101 )PD  71 

101  FORMAT!*  THE  OPTIMAL  ACTIVITY  COMPLETION  TIMES  FOR  A TARGET*.  72 

• • TIME  OF  *.E14«S.  • W ILL  BE  SUPPLIED.*)  73 

NFLAG= 1 74 

REWIND  F 4 75 

•RITEIF4) NC YC . PD . NFL  AG  76 

0=0.0  77 

I =NBRE AK— 1 78 

GO  TO  200  79 

300  WR I T E ( 6 . 1 02 ) BO 

102  FCRMATl • OTHIS  IS  THE  SECOND  CONSECUTIVE  REQUEST  FOR  AN  INFEASIBLE  81 

•PROJECT  DEADLINE  TIME.*/*  A FATAL  ERROR  WILL  BE  COMMITTED  SO  THAT  82 

•ALL  REMAINING  JOB  STEPS  WILL  BE  SKIPPEO.*)  63 

CALL  ERR  SET  1251.1.—  1.1)  64 

XM=DSQRT (-1 .00)  65 

GC  TO  400  66 

2 NFLAG=0  67 

C=O.GO  66 

I=J-l  89 

1FII.EQ.0) GO  TO  4 90 

D=UREAK(I )— PD  91 

200  DC  3 J=!.I  92 

3 READIF6)  93 

4 N 1 =2  *NA  94 

REAC1F6) (FILL6I I ) . 1=1 .N1 ) 95 

OO  700  JJ=1.NA  96 

J=JJ*2  97 

EMA=F ILE6I J)+0*FILE6( J-l)  98 

NNCT=NCTIJJ)  99 

NNCT 1=NNCT— l 100 

READIF 1 > (TYMEI J ) . J=1 .NNCT)  101 

DC  709  J=1,NNCT  102 

IFIEMA. GE. TYMEI J))GO  TO  709  103 

JK  = J - 1 104 

GO  TC  706  105 

709  CONTINUE  106 

JK=NNCT1  107 

706  00  707  J= 1 • NNC  T 1 108 

IF(J— JK1706.705.  706  109 

705  READIF 1 ) 101  ST .TIME  1)0 

GC  TO  707  I I 1 

706  READIED  112 

707  CONTINUE  113 

MF !X=  I C I ST  42  114 

GC  TC  1710. 711. 712. 715). MFIX  IIS 

710  CCNTINUE  116 

C 117 

C BETA  DISTRIBUTION  DO 

C 119 

IF  I T I ME  14)  .GT.-I.DOIGO  TO  7100  120 

C IPI 
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C CCNVLRT  THE  MOST  LIKEL V PARAMETER.  TIME  12},  TC  ALPHA  AND  BETA  122 

C 123 

AA  * T 1 ME ( 1 | 124 

XM  = T 1 ME < 2 ) 125 

8B  « T1ME1JI  126 

CALL  ALBETI AA.XM.8B. ALPHA. 8ETA1  127 

T1ME12)  ^ ALPHA  126 

TIME(4)  2 BETA  129 

7100  CONTINUE  130 

A * T 1 ME (21  4 1.  131 

b x T 1 Pd (41  4 1.  132 

XM IN  * T IM£( 1 > 133 

XMAX  * T 1 ME (3)  134 

C 135 

C COMPUTE  NEW  ALPHA. BETA, MIN  TIME,  A NO  MAX  TIME  136 

C 137 

UA  s ( XMAX-XMIN ) *( A/ < A40 1 1 4 XMIN  138 

C * (UA-XMlN)/( XMAX-UA)  139 

V = A*b/< (A4U)»«2«( A4b4l. 1 1 140 

T 1 ME  II)  x XMI MENA/UA  141 

T I ME |4)  x (C/(V*(C41)4(C41))-|.»/(C4| |-|.  142 

TIMEI3)  x XMAX4EMA/UA  143 

T 1 ME ( 2 ) x c* ( T I ME ( 4 1 41. |-I.  144 

HRITE(6.2I0I)NUMS< JJ1.EMA.BET,  TIME!  1 I , T 1 ME ( 3 I , T I ME( 2 I . T I ME ( 4 ) 14b 

2101  FORMAT ( 16.6X.F1 2.5.6X .SA4.6X, •MIN** .F13.S.' . MAX* • ,F I 5.5 . • , ALPHAS  146 

,F 12.5. • • bETAx' ,F 12 .5 1 147 

CO  TC  713  146 

711  CONTINUE  149 

C ISO 

C NORMAL  DISTRIBUTION  151 

C 152 

IF  I T Z ME 14)  .EO.1.1  GO  TO  714  153 

T1MEI3)  s ( T IME ( 3 ) -TIME(l)  1/6.  154 

T I ME  1 4 ) x i.  1 55 

T I ME  I 1 ) =0.  156 

714  T 1 ME ( 3 ) x EMA/T I ME( 2 1 4TIMEI3)  157 

T1MEI2)  x EMA  156 

HR  IT E( 6, 2201 1 HUMS ( J J ) « EM A , NORM , T I ME ( 2 1 ,T I ME ( 3 ) 1S9 

2201  FCRMATII6. 6X.F12. 5, 6X.5A4.6X. 'MEANs' .F12.5.* , ST .DEV* • ,F 12 . 5 1 160 

GO  TO  713  161 

712  CCNTIKUE  162 

C 163 

C UNIFORM  DISTRIBUTION  164 

C 165 

TDUM  X 2.4EMA4T I ME( 1 ) /(TIME(l)  4TIMEI3)  ) 166 

T1MEI3)  x 2 . *EMA 4 T I ME ( 3 1 /CTIME(l)  4T1MEI3)  1 167 

TIME(l)  x TDUM  166 

HR 1TE ( 6 ,230 1 1 NUMSI J J ) , EM A, RECT , T 1ME(  1 l.T I ME! 3)  169 

2301  FCRMAT(I6.6X.F12.5.6X.SA4.6X.*MINx',F13,S«,«  MAXs*,FIS.S)  170 

GO  TO  713  171 

715  HRITEI6.2401 1NUMSI JJI . EMA. FIXED. TIME! 11  172 

2401  FCRMAT(16,6X,F12.5.6X, 5A4 ,6X • ' T I ME= • , F 1 2 « 5 1 173 

713  CONTINUE  174 

HRITE(F2)1D1ST , T 1 ME  175 

700  CONTINUE  176 

400  STOP  177 

ENO  176 

SUBROUTINE  ALBET  I A A • XM • BB . ALPHA .BET A 1 179 

C SUBROUTINE  TO  CALCULATE  THE  ALPHA  ANO  BETA  VALUES  OF  THE  BETA  OENSITV.  160 

C N46.SEE  PAPER  BY  A.H.HOMTHAM  ANO  R. E .COLE . I NOUST R I AL  ENGINEERING  DEPT.  181 

C 162 
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c 

GIVEN  AA,  BO.  ANO  XM  THE  VALUES  OF  ALPHA  AND  BETA 

ARE 

OETERMINED 

103 

c 

FROM  A ANC  THE  STANOARC  APPROXIMATION  B. 

164 

c 

CALLING  ARGUMENTS.  ' 

18S 

c 

1 86 

c 

167 

c 

1.  AA  IS  THE  MINIMUM  TIME  ESTIMATE. 

188 

c 

2.  XM  IS  THE  MOST  L1KLEY  TIME  ESTIMATE. 

1 80 

c 

3.  BB  IS  THE  MAXIMUM  TIME  ESTIMATE. 

100 

c 

4.  ALPHA  ANO  BETA  ARE  THE  VALUES  CALCULATED 

101 

c 

terpgl  is  a ARITHMETIC  statement  function  to  do  linear 

INTERPOLATION. 

192 

c 

if 

X IS  THE  VALUE  REQUIRED  SHICH  LIES  BETaEEN  THE  VALUES 

OF  XI 

ANO  X2 

193 

c 

IN 

A TABLES  X2  IS  THE  LARGER  VALUE<  VI  AND  Y2  THE  CORRESPONDING 

VALUES 

194 

c 

IN 

THE  TABLE.  XV2  GREATER  THAN  V GREATER  THAN  YK. 

1 95 

IMPLICIT  REAL*B( A-H.O-Z 1 

196 

TEFPCL (XI .X2. Y. Y 1 .Y2T-X1 ♦( (X2-XI 1 *1 V-VI 1/IV2-Y1 1 ) 

197 

KK=-  1 

1 96 

K*0 

199 

K A = A A 4 1 0.00  ♦ 0.100 

200 

KM=XM*10.D0  ♦ 0.100 

201 

KB=BB*10.00  ♦ 0.100 

202 

KB=KB— KM 

203 

KA=KM-KA 

204 

IF ( XM.E0.6B)  GOTO  22 

2 05 

JFIXM.EO.AA)  GOTO  21 

206 

GOTO  23 

207 

21 

ALPFAsO .DO 

200 

BETA*2. 872400 

209 

GOTO  20 

210 

22 

ALPHAz2.672400 

211 

BETAxO.OO 

212 

GC  TO  20 

213 

2J 

IF(KA-KB)  S.7.S 

214 

5 

S= IXM-AA)/( BB-AM 1 

2 15 

IF(S-l.DO)  6.7.8 

216 

7 

ALPFA=3.D0 

217 

BETA-3.00 

218 

GO  TO  20 

219 

6 

Ssl.OO/S 

220 

K>-1 

221 

6 

Y=6 • 00 

222 

DC  10  1*1 .600 

223 

V*  Y— 1 .0—2 

224 

B*Y*36.00 

225 

C = ( V**314(7. 00  * ( Y * • 2 ) ) — 20.00* Y -24. DO 

226 

R = ( B**2  I— I 144.00*0 

227 

R00T=CS0RT (R) 

226 

ALF*(0*ROGT 1/72.00 

229 

BET-IB-ROCT 1/72.00 

230 

55*ALF/BET 

231 

IF  (SS-  S)  10.11.14 

232 

14 

IF  (KKHS.16.11 

233 

IS 

KK  = KK  4 1 

234 

S1*SS 

235 

X 1 *ALF 

236 

2 1 *BE  T 

237 

GC  TO  10 

23e 

10 

CENT INUE 

239 

SPITE  (6.181 

240 

la 

FORMAT! INI.  32 H ERROR. NO  VALUE  OF  ALPHA  BETA  1 

241 

CALL  EXIT 

242 

16 

KK*KK4 1 

243 

J 
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X2*ALF  244 

22=bET  24S 

S2*SS  246 

ALFxTERPGLtXl .X2.S.S1 . S2 ) 247 

BETsTERPOL<21 .22. S. SI .S2»  248 

11  IF  <K)  12*13.13  24S 

12  BETA  sAL F 250 

ALPHA  s BEY  25 J 

GG  TO  20  252 

13  ALPHA  * ALF  253 

BETA  s BET  254 

20  PE  TURN  255 

EN0  256 
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4.  SIMP 

C S I PPL  IF  ICAT  UN  PROGRAM  1 

C 2 

C THIS  PROoRAM  DETERMINES  THE  SIMPLIFIEC  PROJECT  NETWORK  BY  3 

C REPLACING  CERTAIN  CONFIGURATIONS  OF  ACTIVITIES  WITH  SINGLE  * 

C ACTIVITIES  WHOSE  U IS TR I OUT  I ONS  CAN  BE  DETERMINED  TO  MATCH  THE  5 

C DISTRIBUTIONS  OF  THE  CONFIGURATIONS  OF  ACTIVITIES  REPLACED.  6 

C 7 

C FOR  THE  SAKE  OF  IDENTIFYING  THE  APPROPRIATE  DIMENSIONS.  LET  8 

C MMAX  = THE  MAXIMUM  NUMBER  OF  ACTIVITIES  IN  THE  ORIGINAL  9 

C PROJECT  NETWORK  10 

c currently.  mmax=iooo  11 

C 12 

INTEGER  FILE3I 3*NA) .SINA.4)  13 

14 

IMPLICIT  REAL48IA-H.0-R.T-2)  15 

INTEGER  FO/d/.  F3/11/.  F7/15/  16 

INTEGER  FILE3I3000) ,S< 1000.4) .L 1ST! 24). JPI20)  17 

EQUIVALENCE  I FI LE3I  1 ) . SI  1 ) I 18 

EQUIVALENCE  ( ISDR.LISTI  1 ) ) .(  I. LIST! 2) ). ( JPI 1 ).LI STI3) 1 19 

WRITEI6.9000)  20 

9000  FORMAT ( IH1 . 132( ••• )/lX. 1 321 •*•)/• OTHI S IS  THE  OUTPUT  FROM  THE  SIMP  21 

• L1FICATICN  PROGRAM:  S I MP • / 1H0 . I 321  • * • )/ 1 X . 1 32 ( • * • ) ) 22 

REWIND  FO  23 

NRED=0  24 

READIFO ) NACT . NODE S . NSRCE . NSI NK .LNOOE N . S 25 

REAC(FO) JMA  T 26 

NK=NACT  27 

REWIND  F3  28 

READ  < F3 ) 29 

DO  99  1=1. NK  30 

99  SI1.4)— I 31 

C 32 

C 33 

C BUILD  FILE7  FOR  THE  MODIFIED  SIMPLIFICATION  PROGRAM  34 

C 35 

C START  OF  SEARCH  FOR  REDUCIBLE  NETWORKS  3C 

C 37 

100  CO  190  I 3 1 . NK  38 

IFISI I .4) .Lt.OI  GO  TO  190  39 

KP=  0 40 

CO  121  J=l.NK  41 

IF { 1 .NE. J. AND. S( J • 4 ) .GT.O.ANO.SI 1.2) . EQ. S ( J • 2 ) . AND. S ( 1.3) .EQ.S ( J .3  42 

1)1  GO  TO  122  43 

GC  TG  121  44 

122  KP=KP41  AS 

JP(KP)=J  46 

1FIKP.GE.20)  GO  TO  200  47 

121  CONTINUE  48 

IF(KP) 120.120,200  49 

120  00  130  J3 1 ■ NK  50 

IF1 I .NE. J.AND.SI J.4 I .GT.O.ANO.SI 1.31 .EQ.SI J. 2) ) GO  TO  125  51 

130  CONTINUE  52 

GO  TO  190  53 

125  Jl*J  54 

JK  = J1M  55 

IF  I JK-NK  I 127,  127.  14 1 56 

127  DC  140  JxJK.NK  57 

IF  1 I .NE .J.AND.SI  J.4 I .GT.O.ANO.SI J.2) .EQ. SI J1 ,2) I GO  TO  160  58 

140  CCNTINUE  69 

141  00  150  Jxl.NK  60 


n a n 
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IK  I .NE.J.ANU.J1  .NE. J.ANO.Sf J.4I .GT.O.ANO.St J.31 .EQ.S( I, 3) I CO  TO  61 

t 1 90  62 

ISO  CCMIMt  6 J 

GO  TO  300  64 

160  J2*J  65 

K3«-l  66 

K4»- 1 67 

ks*-i  ee 

161  00  165  J*1.NK  65 

IF< I .EO.J.OR.J1  .EQ. J.OR. J2.E0.J.0R.SI J.4I.LE.0)  GO  TO  165  70 

lFfS(J.3}.E0.SiI.311G0  TO  190  71 

165  CONTINUE  72 

73 

CHECK  FOR  FIRST  ORDER  CROSSED  NETWORKS  74 

75 

49  KK=0  76 

50  DO  60  J» 1 • NK  77 

IFtI*EO.J.OR.J.EO.JI.OR.J.EO.J2.0R.StJ.41.t-E.O}  GOTO  60  70 

IFISI J.2I.EQ.SI  I *21  .ANO.SI J. 3I.E0.SI J2.3I I GC  TO  SI  79 

GO  TO  60  80 

51  J3*J  61 

52  K3*K3«1  82 

IF1K3)  60.60.190  63 

60  CONTINUE  64 

IF  ( K3 I 61.62.190  65 

61  IFIKK)  53.53.62  86 

53  L«Jl  67 

Jl*J2  66 

J2>L  89 

KK  * 1 90 

GC  TO  SO  91 

62  00  170  J* 1 • NK  92 

IFtI.kC.J.OR.J.E0.Ji.0R.J.EQ.J2.0R.Sf J.41.LE.0)  GO  TO  170  93 

IF(S(J.2)*EU.S(J2.3) .AND .StJ.3l.EQ.StJl.311  GC  TC  167  94 

IF<S(J.2>.EQ.S( Jl.31.AN0.St J.3).EQ.S( J2.3I1  GO  TO  166  5S 

GO  TC  170  96 

167  J4»J  97 

K4*K44l  98 

IF(K4) 170.170. 190  99 

168  JS>J  100 

K5*K54 1 101 

1FIK5M70.170.190  102 

170  CONTINUE  103 

1FIK3.E0 . 0. AN0.K4.E0. 0 • ANO.KS.EO .—  I 1 GO  TO  ISO  104 

IF1K3.EQ. 0 • AN0.K4  *E0*— I • AND .K5 • tO .0 1 GO  TO  171  105 

GO  TO  190  106 

171  K6*-l  107 

K7»— 1 106 

OC  175  J*  1 .NK  109 

IF I J. EC. I .OR. J.EO.  J1  .OR. J.E0.J3.0R. J.EO. JS.OR.St  J.4I .LE . O.OR  . J. EQ  . 1 10 

1J21  GO  TO  175  lit 

1FIS(J.21.EU.S<J1.3I1  GO  TO  172  112 

IFtSt J.2I.E0.S1  J3.311  GC  TO  173  113 

IF tS( J.31.EQ.SI  J 1.31. OR. St  J.3I.E0.S1 J3.31.0R.St  J.21.E0.SI1.311  GO  114 

1 TC  190  115 

GC  TO  175  116 

172  J6-J  117 

K6ZK6+1  116 

IFtK6117S.17S.190  115 

173  J7*J  120 

K 7*K  7 41  121 
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1F  ( K / ) 175,1  75.  190  122 

I 75  CONTINUE  123 

IF<K6.EG.0.AN0.K7.CQ.0)  GO  TO  1/6  124 

GO  TO  190  12b 

176  IF(S(36.3).EU.S(37.3)1  GO  TO  600  126 

GO  TO  190  127 

iao  Ke=-i  12a 

K9  = - 1 129 

Kl2=-l  130 

K12=-l  131 

00  186  3= 1 • NK  132 

IF ( J .EG . I .Oh. J.EQ. J l .OR. 3.EQ. 32. OR. J.EQ. J3.0R.J.EQ.J4.0R.5(J.4».LE  133 

1.0)  GC  TO  186  134 

IF ( S( J.2I.EU.61 J3.3) ) GC  TO  181  135 

IFISI J. 31. EG. S1J3.31)  GC  TO  162  136 

IF ( S( J.2) .EG. 6(  J4.3) ) GO  TO  183  137 

1FISIJ.2). EO .S( 1.3)1  GO  TC  184  138 

GO  TO  185  139 

181  38=3  140 

K d = K 8 ♦ 1 141 

1F1K6) 185.166. 190  142 

162  IF1S13. 2). E0.S1  32.2) ) GO  TO  190  143 

39=3  144 

K9=K9 ♦ 1 145 

IF (K9) 165.185, 190  146 

183  312=3  147 

K12=KI2«1  146 

GO  I'J  185  149 

184  If ( S( 3.31 .EC.Sl 31 .3 ) ) GO  TO  190  150 

313=3  151 

K I 3 = K 1 34  I 152 

IF (K13) 185. 185, 190  153 

ie5  CCMINOE  154 

IF (K13.EG.0.AND.K12.EQ.0.AND.K8. EQ.- 1 .AN0.K9.E0.- 1 ) GO  TO  186  155 

IF  (lU  3.EQ.-1 .ANU.K12.EC.0. AN0.K8.E0. O.ANO.K9 .EQ.-l I GO  TO  187  1S6 

IF (K13.EG.—  I .ANO. K9.EQ.0. AND. K6. EQ. — J ) GO  TO  186  157 

IF (K13.E0.-1 .AND.K9.E0.- I . ANC.K8.EQ .0 ) GO  TO  189  158 

IF IK13. EQ.-l. AND. K9. EQ.-l. AN0.K8 . EQ. - l I GO  TC  900  159 

GC  TO  190  160 

C 161 

C CRISS  CROSS  1 162 

C 163 

186  1F( S( 3 1 3 .3) .NE.Sl 312 .3) ) GO  TC  190  164 

OC  192  3=1. NK  165 

1F(3. EO. I. OR. 3. EO. 31. OR. 3. EQ. 32. OR. 3.EQ. 33. OR. 3. E 0.34. OR. 3. EO. 31 2.  166 

ICR. 3. EG. 313. OR. S< 3.4  I .CE.OI  GO  TO  192  167 

IF (S13.3) .EG. S< 34.3) J GC  TO  190  168 

192  CONTINUE  169 

GC  TC  400  170 

C 171 

C CRISS  CROSS  2 172 

C 173 

187  IFC5138.3) .NE .5(312.3) ) GO  TO  190  174 

00  193  3=1. NK  175 

IF(3.EQ.I.OR.3.EQ.3I.OR.3.E0.32.0R.3.EQ.33.CR.3.E0.34.0R.3.E0.38.  176 

ICR. 3. EG. 39. ON. S( 3.4 ) .EE. 0 ) GO  TO  193  177 

1F(S(3.3).EQ.S(34.3> ) GO  TO  190  178 

193  CCNT INUE  1 79 

GC  TC  500  180 

C 181 

C CEU8LE  MHEA1 ST  ONE  UR  I OGE  1 182 


I 

I# 

A* 


* 


n rs  n non 


C 103 

168  KIOa-1  184 

Kll*-1  185 

OC  1 96  J* 1 ■ NK  186 

IF! J.EC.I .OR.J.EQ.J1 .OR. J.EO. J2. OR. J.EO. J3 .OR . J . EO . J 4 .OR . J . EQ . J91  187 

i go  to  i«6  iee 

IFISI J.3I.EQ.S1 J9.2) 1 CO  TO  194  189 

1F(S( J.21.EQ.S1 J9.2) ) CO  TO  193  190 

CC  TO  196  191 

194  IFISI J. 21. NE.SIJ3. 2)1  CO  TC  190  192 

J10«J  193 

KIO*K10»1  194 

1FIK10) 196.196. 190  195 

193  IF (SI J.3) .NE.SI J4.J1I  CO  TO  190  196 

J1I*J  197 

KllzKU  + 1 198 

IF (K 1 1 ) I 96. 196. 190  199 

196  CONTINUE  200 

1FIK10.E0.0.AN0.KU .EQ.OI  CO  TO  700  201 

CC  TC  190  202 

203 

OGCQLt  4ME  AT  STONE  OR 10CE  2 204 

205 

189  KIOb-1  206 

ftlto-l  207 

OC  199  Jsl.NK  208 

IF (J.EO.I .OR .J.EO.J1 .CR. J.EO. 02.OR. J.EO. J3.0R.J.E0.J4.0R.J.E0.J8  . 209 

10R. SI J.4I.LC.0)  CO  TO  199  210 

IFISI J.3).EQ.S( J8.31J  GO  TO  197  211 

IF(S< J.2).E0.S( J8.31)  GO  TO  198  212 

CC  TO  199  213 

197  1F(S(J.2).NE.S(J3.2II  CO  TO  190  214 

J10=J  215 

K10«K1041  216 

1FIK10) 199.199.190  217 

198  1FISIJ.3I.NE.SI J4.J1 1 CO  TC  190  218 

Jll«J  219 

K11*KI|F1  22 0 

IFIK1 1 I 199. 199. 190  221 

199  CONTINUE  222 

IFIKIO. EO.O. AND. KU. EQ.OI  CO  TO  600  223 

190  CONTINUE  224 

1FINRE0I 1103.1103.91  225 

91  NRED  = 0 226 

CC  TO  100  227 

228 

8EC INN  INC  OF  PARALLEL  REOUCTION  SECTION  229 

230 

200  NREUBNRE041  231 

J1*JP(1I  232 

00  201  J*2 • KP  233 

L»  JP ( J I 234 

201  SIL. 4)3-1  235 

SI  1.4)  *— 1 236 

ISBRbI  237 

L I ST  I 23 l*KP  238 

L 1 ST  I 24 ) a J I 239 

6RITEIF7)  LIST  240 

IF  I JP AT  I 1040.1040.  120  24  1 

1040  L I M*KP— 1 242 

00  202  Kal.KP  243 
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1F=JFIK)  2 44 

202  JP I K ) = S 1 IP* 1 ) 245  • 4 

•PI TE (6. 1020)  S( i.l t .( JP(K).K=I.LIM)  2 46 

• P I Tt ( 6. * C2 J > JPIKP)  247 

1024  FUPMATllHO.  I0KUH  ACTIVITIES  I4.II012H.  I4)/12Xi)  246 

1023  FOPMATIIH  .10X4MAND  I4.32H  HAVE  eEEN  COMBI  NE  C IN  PARALLEL.  ) 249 

GC  TC  1290  25  0 

C 2 5 1 

C SERIES  REOUCTION  252 

C 253 

300  NPEU=NPtO*l  254 

S l I . 4 )=- 1 255  i 

ISER =2  256 

LIST(3)-J1  257 

• P ITE I F7 I LIST  256 

IF  (JMAI)  1009. 1 009. 120  259 

1009  MPITEIb.  1025  I S ( 1 . 1 ) . S ( J 1 . 1 > 260 

1025  FORMAT ( 1H0 , 42X1 1 H ACTIVITIES  14. 4H  AND  I4.20H  COMBINED  IN  SERIES.)  261  < 

GO  TO  1290  262  ' 

C 263 

C CPISS  CROSS  IYPL  l REDUCTION  264 

C 265 

400  NPE0=NREC6 1 266 

S(l.4>=-1  267 

S ( J2  • 4 ) *— 1 266 

SIJ3.4) 1 269 

SI J4.4 ) = — 1 270 

SIJ12.4) a— 1 271 

S(J13,4)=-1  272 

I SBH - 3 273 

LIST(3)*J1  274 

LIST<4)=J2  275 

L1ST15I*  J3  276 

LIST(6i=J4  277 

L1STI7)=J12  276 

LIST(d)=J13  279 

•P1TEIF7)  LIST  280 

1FIJMAT)  1 230. 1230. 190  261 

1230  •R1TE(6.I430)S(I.1).S(J1.1).S(J2.1).S(J3,1).S<J4.1).S(J12.1).S(J13  282 

I.l)  283 

1430  FORMAT ( 1F0. 25X1  INACTIVITIES  14, 2H,  14, 2H . 14. 2H , I 4 . 2H . 14. 2M,  14.  264 

1 6H,  AND  14.44M  HAVE  BEEN  COMBINED  AS  A CRISS  CROSS  TYPE  1.)  285 

GO  10  1290  266 

C 2e7 

C CRISS  CROSS  TYPE  2 REDUCTION  288 

C 289 

500  NPEO=NRED*l  290 

SII.4)=-1  291 

S I J2 , 4 ) — — 1 292 

S(J3.4)c-l  293 

SIJ4. 4)=t-l  294 

SIJU.4)*-!  295 

SIJ12.4)*-!  296  I 

1SUR-4  £97 

L1STI3)«J1  296  7 

L I ST  I 4 ) * J2  299 

LIST IS)*  J J 300 

LIST 1 6 ) * J4  301 

L1STI7)3  38  302 

LISTIti)*J12  303  j 

• PI  TE  IF  7 1 LIST  304 


r>  n r* 
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1FIJFAT)  12*0. 1240. 190  305 

1240  MR  1 T t < 6. 14401 S(  1.1).S<J1.1>.S(J2.1).S<J3.1).S(J4.1),S(J8.11.S(J12.  306 

11)  307 

1440  FORMAT  I 1HO. 25A  INACTIVITIES  14. 2H.  14. 2H.  14. 2H.  14, 2M , 14. 2H , 14  306 

1.  6H.  AMD  I4.44H  HAVE.  BEEN  COMBI  MED  AS  A CR1SS  CROSS  TYPE  2.)  309 

CC  TO  1290  310 

311 

criss  cross  type  3 reduction  312 

313 

600  NREDxNRED+1  314 

S<1.4)--1  315 

S( J2 . 4 ) x— I 316 

S ( J3 • 4 ) *— 1 317 

S 4 JS , 4 J x — 1 319 

S ( J6 . 4 ) *— 1 319 

S(J7.4)x-l  320 

ISBRxS  321 

L 1ST ( 3 ) x J 1 322 

LIST (4)xj2  323 

L1ST(5)xJ3  324 

L 1 ST  16 1 x JS  325 

LlST(7)xJ6  326 

LIST (6)xj7  327 

WR 1 TE IF  7 I LIST  326 

IF(JMAT)  1250.1250.190  329 

1250  »RITE(6.1450)S(l.l).S(Jl.l).S(J2,n.S(J3,l).S(JS.l).S(J6.1).S(J7.1  330 

1 ) 331 

1450  FCRMATI1H0.2SX  1 1 HAC  T 1 V I T I ES  I4.2H.  14, 2H.  I4.2H,  14, 2H , 14,2b.  14  332 

1.  6H , AMD  14.44H  HAVE  BEEN  COMBINED  AS  A CRISS  CROSS  TYPE  3.)  333 

GO  TO  1290  334 

C 335 

C DOUBLE  WHEATSTONE  BRIDGE  TYPE  1 REDUCTION  336 

C 337 

700  NRECxMREC*!  336 

S( 1 .4 )*— 1 339 

S ( J2 • 4 ) x— 1 , 340 

SI J3, 4) =— 1 341 

S I J4 ,4 ) s—  | 342 

S(J9.4)x-l  343 

SIJ10.4) =—  1 34  4 

SI  J1 1 » 4 I *— l 345 

ISBRxe  346 

LISTI31-J1  347 

LIST(4)xJ2  346 

L I ST (5 ) x J3  349 

LIST(6)x  J4  350 

LIST! 7)*  J9  351 

LlST(8)xJ10  352 

L I ST  I 9 ) x j 1 1 353 

WR1TEIF7)  LIST  354 

IFIJMAT)  1210.1210.190  355 

1210  MRIT£(6.1410)SII,1),S{J1.I).SIJ2.1).SIJ3.1).SIJ4,1),SIJ9.I).S(J10.  356 

ID.SlJll.l)  357 

1410  FORMAT  I 1M0.  10*  INACTIVITIES  14. 2H.  14. 2H.  14, 2H.  14,2b.  14. 2H . 14  3S6 

1.2b.  14, 6b,  AND  14.  57H  HAVE  BEEN  COMBINED  AS  A DOUBLE  WHEATSTONE  359 

2BRIDGE  TYPE  1*1  360 

GC  TC  1290  361 

C 362 

C OOUELE  WHEATSTONE  BRIDGE  TYPE  2 REOLCT ION  363 

C 364 

800  MREOxNREDM  365 


L _ . ■ ■ 
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St I .4  >=-i 

St J2.4)x-i 
St  33.4  > x-  i 
SI J4,4)x-1 

st je.4i*-i 

St J10.4)x_i 

St Jll .4)*-! 

I SEH=  / 

L I ST  t 3) * J I 

L 2 ST  14) = J2 

LISTtS)xJ3 

LISM6)  = J4 

LIST  t 7|=*J8 

LI  SI  18) xj  10 

LISTt9)  = JU 

Wfi  I TE  IF  7)  LIST 

IF  t JM AT ) 1220. 1220, 190 

1220  *RlTEt6.142u>StI.l).StJl.l).StJ2.1>.StJ3.1).St34.l).StJ8.1>.StJI0. 
1 1 1 .St  J 1 1 . 1 1 

1420  FORMAT ( IhO. 10*  INACTIVITIES  14, 2H.  14, 2H,  14, 2H , 14. 2M,  14, 2H,  14 

1.2H,  14. OH,  AND  14,  S7H  HAVE  BEEN  COMBINED  AS  A OGUBLE  WHEATSTONE 

2BRI0GE  TYPE  2.) 

GC  TO  1290 


WHEAT  STONE  BRIDGE  REDUCTION 
C 

900  IF  tNRED.EO.O)  NREO=NRED*l 
St  I ,4)=-l 
St J2.4)*-l 
St  J3 .4  ) x-  l 
St  J4  .4  1 x-  1 
I SEH-B 
LIST t J)=J1 
L I ST  14) x 32 
LIST  tb)xj3 
LIST  t 6 ) x J4 
•RITEIF7)  LIST 
lF(JPAT)  1201 . 1201 . 1 90 

1201  WRITE (6. I 401  1 St  1. I ) ,St Jl , 1 I . St J2.1  ) .St J3.1)  ,S( J4, 1 ) 

1401  FORMAT ( 1H0.20X  I 1 MAC  I T I V I TES  14, 2H,  14, 2H.  14, 2H.  14, 6H.  AND  14,  4 

I3H  HAVE  BEEN  COMBINED  AS  A WHEATSTONE  BRIDGE.) 


C 


1290  WR I TL ( 6. 1 490)  St J 1 . 1 ) , S t J I , 2 ) , S t J I . 3 ) 

1490  FCRMATtlH  .41 X,  9HACTIV1TV  ,I4,18H  NOW  HAS  TAIL  NO.  I4,I4H  AND  MEA 
ID  NO.  ,14. 1H.) 

GC  TO  190 

1103  WR 1 IE ( 6. 1 02  7 ) 

1027  FORMAT  I • I • ,10X. • THE  FOLLCWING  ACTIVITIES  CANNOT  BE  FURTHER  COMBINE 

• o:*  I 


4 


WR I TE  t 6. 2001  ) 

2001  FORMAT  t //✓  1 IX, ’ACT  IV  ITY  ORIGIN  TERMINAL* 

•SX. • AC T 1 VI T V NUMBER  ASSIGNED  OY  OECOMP*) 

N ACT  x 0 

DC  1 lOt  1*1 , NX 

IFtSt 1.4).LT.0)G0  TO  1105 

NACT  »NACT 4 1 

1104  WRITEIG. 1028) Sll,l).StI.2).Sf I .3) .NACT 
1028  FORMAT  t I 3X . I 4 ,6 X . I S . 7X . I 5 . 9X , I 5 1 

1105  CONTINUE 
ENOF ILE  F 7 


3(6 

367  , 

368 

369 

370 

371 

3 72 

373 

374 

375 

376 

377 

378 

379 

380 
38  I 
382 
38  3 

384 

385 
3eo 

387 

388 

389 

390 

391 

392 

393 

394 

395 
356 

397 

398 

399 

400 

401 

402 

403 

4 04 

405 

406 

407 

408 
405 
4 I 0 
4 I 1 
4 12 
4 1 3 

414 

415 

416 
4 17 
4 1 8 
4 19 

420  * 

421 

422 

423 

424 

425  If 

426 


c 


r*or>~  non  nonn  c\n 


t S3 


1156 


1154 

1157 


BUlLO  FILE3  FOR  DECOMPOSITION  427 

426 

NACT  » O 4 29 

LNGOEN  ■ 0 430 

431 

COUNT  ACTIVITIES  ANO  DETERMINE  LARGEST  NODE  NUMBER  432 

DETERMINE  L U ANO  P FOR  SUBNETWORK  ANALYSIS  433 

434 

00  1153  3* 1 • NK  435 

436 

SIJ.41  IS  -1  IF  J-TH  ACTIVITY  HAS  BEEN  ELIMINATED  437 

436 

IFISI J.4) .EQ.-l 1G0  TO  1153  430 

NACT-SACT+1  440 

SINACT  « 1 )=NACT  441 

SINACT, 2)=S( J.21  442 

SINACT .3}>SIJ. 3)  443 

IF  (SINACT. 31.GT.LN00EN)  LKOOEN  • SINACT. 3)  444 

CONTINUE  445 

446 

FIND  SOURCE  AND  SINK  447 

446 

NSRCE  * 0 449 

NS I NK  * 0 450 

DO  1154  Jxl.NACT  451 

IFLG  * 0 452 

JFLG  » 0 453 

IIRG  = SI J.21  454 

ITER  * SIJ.31  455 

DO  1156  K* 1 • NACT  456 

IF  (IIRG. EQ.SIK. 3)1  IFLG- l 4S7 

IF  I ITER. EQ.SIK. 211  JFLG*  I 456 

CONTINUE  459 

IF  I IFLG. EQ. 01  NSRCE  * SI J.21  460 

IF  (JFLG. EO. 01  NSINK  * SIJ.31  461 

IF  (NSRCE. Nt.O. ANO. NSINK. NE.O)  GO  TO  1157  462 

CONTINUE  463 

CONTINUE  464 

WR 1 TE (F3 1 NACT .NODES • NSRCE .NS  I NK . LNODEN .F ILE3  4 65 

STOP  466 

END  467 


n n 
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5.  MODS  IMP 

C MODIFIED  SIMPLIFICATION  PROGRAM  I 

C 2 

C IHIS  PROGRAM  DETERMINES  THE'  DISTRIBUTION  CF  EACH  OF  THE  J 

C ACTIVITIES  IN  THE  SIMPLIFIED  PROJECT  NETWORK  {DETERMINED  BY  THE  4 

SIMPLIFICATION  PROGRAM).  5 

6 

C FOR  THE  SAKE  OF  IDENTIFYING  THE  APPROPRIATE  DIMENSIONS.  LET  7 

c MMA X = THE  MAXIMUM  NUMBER  OF  ACTIVITIES  IN  THE  ORIGINAL  0 

C PROJECT  NETWORK  9 

C CURRENTLY.  MMAX*iOOO  10 

C I I 

C DIMENSION  S (MMAX.4 ) .CDF( MMAX. 12)  12 

C I J 

IMPLICIT  REAL4UI A-H.O-R. T-Z)  14 

INTEGER  FO/U/.  F2/10/.  F4/12/.  F7/15/  lb 

COMMON  /ULKA/S.CDF. A .DENS. TI  16 

INTEGER  S 17 

DIMENSION  S( I 000  .4)  .CDFI  1000 . 12) . A{ 1 2 > .DENSI 400 ) . TI (2)  IS 

COMMON  /6LKU/T IME.Y  IV 

DIMENSION  T 1 ME (4). Yl 12)  20 

RE  AL  * 4 T Y ME (41  21 

DIMENSION  JPI20 ),L I STI24 ) 22 

EQUIVALENCE  < I 5BR.L I S T ( 1 ) I . < I .L I ST ( 2 ) ) . < JP< I ) ,L I ST 1 3 ) I 2J 

WRITEI6.VOOO)  24 

9000  FORMAT  I IH1 . 1 J2I  •*•)✓ 1 X. 1 321 •♦•)/• OTH I S IS  THE  OUTPUT  FROM  THE  MOOI  25 

• FIEO  SIMPLIFICATION  PROGRAM:  MOO S IMP • / IHO . I 3 2 C • * • ) / I X . 1 32 ( • • • > ) 26 

REWIND  FO  27 

REWIND  F 2 20 

REWINC  F 7 29 

AC  1)  — 0.0  30 

A(12)=1.00  31 

00  62  J- 2 .11  32 

62  A I J ) = OFLGATI J-2) 40. IDO  ♦ 0.0500  33 

1 500- C 34 

J200=0  35 

REAOIFO ) NAC T. NODES. NSRCE. NS INK.LNODEN.S  36 

IFt.CP  = 0 37 

5 OO  79  lal.NACT  30 

REA0IF2 IMM, TYME  3V 

MMxMM«2  40 

TIME! 1 I x TYME I 1 ) 41 

T I ME  12)  x TYME ( 2 ) 42 

TIMEI3)  x TYMEI3)  43 

T I ME  14)  x TYMEI4)  44 

CALL  XOENSC MM, I . 1500. J200I  45 

SI  1 ,4 )*MM  46 

DO  42  Jx 1 . | 2 47 

42  CCF ( I • J )xYI J ) 40 

79  CCNT1NLE  49 

NKxNACT  SO 

100  REA0(F7,ENDxV9)  LIST  bl 

GO  TO  1200. 300. 400. bOO. 600. 700. 000. 900) , ISBR  52 

C 53 

200  CCNTINLE  54 

C PARALLEL  REDUCTION  55 

KP  x LIST I2J)  56 

J1  x L I ST  124 ) 57 

CALL  PARREDt I , JP.KP. J1 ) 5 6 

GC  TO  100  59 

CONTINUE  60 


100 
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c 

61 

c 

SERIES  REDUCTION 

62 

c 

63 

Jl  - LI  ST ( 3) 

64 

S(  I . 4 1 

6S 

CALL  SERRED(t.Jl) 

66 

GO  TO  100 

67 

400 

CONTINUE 

t»S 

c 

69 

c 

CRISS  CROSS  TYPE  1 REDUCTION 

70 

c 

71 

Jl  = LIST (3) 

72 

J2  « L1ST14) 

73 

J3  > LISUSI 

74 

J4  . LIST (6 1 

75 

J12  = L I ST ( 7 ) 

76 

JI3*  LISTI8I 

77 

S( 1*4) «— I 

78 

SI J2.41.-l 

79 

SIJ3.4)—  | 

80 

SI  J4  • 4 1*-  1 

81 

SI J12.4 l.-l 

e2 

SI J13.41 «-l 

83 

CALL  CCIREDI I.J1.J2. JJ.J4.J12.J13I 

84 

GC  TO  100 

85 

500 

CONTINUE 

86 

c 

87 

c 

CRISS  CROSS  TYPE  2 REOUCTICN 

88 

c 

89 

Jl  ^ L 1 ST 13) 

90 

J2  « LIST14) 

91 

J3  - LIST  IS) 

92 

J4  * L 1 ST  161 

93 

J6  « L 1 ST  17) 

94 

J12  = LISTI8) 

95 

SI  I .4)*-! 

96 

St J2.4).-l 

97 

SI J J.4 |.- 1 

98 

SI J4.4I.-1 

99 

si ja. 41.-1 

1 00 

SIJ12.4).-! 

101 

CALL  CC2REDI  1 . Jl  . J2  . J 3 . J4 . J8  . J 1 2 1 

102 

60  TO  100 

103 

600 

CONTINUE 

104 

c 

105 

c 

CRISS  CROSS  TYPE  3 REDUCTION 

106 

c 

107 

Jl  . L 1ST  131 

108 

J2  * LI  ST  1 4) 

109 

J3  > LI  ST  IS! 

1 10 

JS  « LIST  16) 

1 1 1 

J6  > LI  ST  17) 

112 

J7  > LIST  1 A) 

1 13 

SII .41.-1 

114 

SI  J2.41.-l 

1 15 

SI  J3.41.-l 

116 

SIJS.41.-1 

1 1 7 

SI J6.4I.-1 

1 1 8 

SI J7.4I.-I 

1 1 9 

ALL  CC3RE0I1.JI. J2 • J3 . JS • J6 • J7 1 

120 

GO  TO  100 

121 
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t 


700 

CONTINUE 

122 

c 

123 

c 

DOUBLE  4HLA T STUNE  BRIDGE  TYPE  1 REDUCTION 

124 

c 

125 

Jl  = L 1 ST ( 3 ) 

126 

J 2 = LIST!*) 

127 

J3  - LIST  IS) 

128 

J 4 = LISK6) 

1 29 

J9  = L 1 ST ( 7 I 

130 

JIO=  LISTI8) 

131 

Jll*  LISTI9) 

132 

SI  I .4)=-! 

133 

Si J2.4)=-l 

I 3* 

SiJ3.4)=-l 

135 

SU4 .4  1 =-l 

136 

SI J9,4)=-l 

137 

S 1 J 1 0 . 4 ) =-  1 

t3e 

SUM  • 4 I =—  1 

139 

CALL  C 4 I RED  t I » J 1 . J2 .J3.J4.J9.J10.JI1) 

1 40 

GL  TO  100 

141 

eoo 

CENT INUE 

142 

c 

143 

c 

DOUBLE  MhEATSTONE  BRIOGE  TYPE  2 REDUCTION 

144 

c 

1 45 

Jl  = LI  ST  1 31 

146 

J2  = LIST {41 

147 

J3  = LIST  IS) 

i 4e 

J4  = L I S T (6  ) 

149 

JB  = L 1 ST ( 7 1 

ISO 

J 10=  L I SI (8> 

151 

J 1 1 = LIST  19) 

152 

Si  I .4>=-l 

153 

S(J2.4>=-1 

154 

S(JJ.4)=-1 

1 55 

St J4.4)=-l 

156 

Si JB.4 ) =- 1 

157 

Si JI0.4I=-I 

1S8 

SUM  .4  l=-l 

159 

CALL  C42RE0I  I . J 1 . J2  . J3  . J4  . J8  . J 1 0 i Jl  1 ) 

160 

GO  TO  100 

161 

vioo 

CONTINUE 

162 

c 

163 

c 

• NEAT  S I ONE  faRIOGE  REDUCTION 

164 

f 

165 

Jl  = LIST  131 

166 

J 2 = LIST (41 

167 

JJ  = LISTiSl 

168 

J4  = LIST (61 

169 

Si  1 .4)=-  1 

170 

SU2.4)  = -l 

171 

Si JJ.4)=-I 

172 

SiJ4,4)=-I 

173 

CALL  4URED1 1 . Jl. J2. J3. J4 ) 

174 

99 

CCNM  NUE 

1 75 

c 

PRINT  RESULTING  DISTRIBUTIONS 

176 

DO  1100  l»l.NACT 

1 77 

IF  ( Si  1 .4 l.LT.O)  GU  TO  1100 

178 

T1MEM  1=0.00 

1 79 

TIME! Jl =0.00 

180 

DC  270  K=2 • II 

181 

T IMEM  1 =T  IMLI  1 1FCDF  ( 1 ,K) 

182 

n o 


203 


270  T IME< 3>  = T IME(3)»COF( (,K >**2  163 

TIMEII )*TIMfc< 1)4.100  164 

TIME! J)=OSOHT (OMAX1 ( 6.00 . T IKE ( 3 I 4. 100-T 1 MEI 1 >**2» ) 160 

IFLCP  e IFLUP  ♦ 1 160 

IF  CMGDI IFLOP.31.EQ.OI  WRITE (6*2001 ) 167 

2001  FORMAT ( 1 H 1 I 166 

WRITE  (6.  1026)  01  I. I >. SI  I *2). S< I .3) .TIME(l). TIME! 3)  189 

1026  FORMAT!///! IX. 'ACTIVITY  ORIGIN  TERMINAL  MEAN  STAND  100 

4AR0  DEVIATION*/! 3X . 1 4 . 6X . 1 5 . 7 X . I 5 .6X . F6. 1 . 8X.F7 .2//32X . *F ( T ) 191 

• TM  192 

00  1102  MP*1.12  193 

WRITE16.6000)  A ( MP ) . COF 1 1 . MP 1 104 

6000  FCRMATI31XFS.2.3H  F10.4)  190 

1102  CONTINUE  ISO 

1100  CONTINUE  197 

C 198 

C SAVE  THE  SIMPLIFIED  ACTIVITY  OURATION  DISTRIBUTIONS  FOR  SUBNETWORK  199 

C ANALYSIS  200 

C 201 

REWINC  F4  202 

READ (F4 ) 203 

NACT«0  204 

00  11002  Jzl.NK  205 

IFISIJ.4) «GC .01 NAC  T=NACT 4 1 206 

11002  CONTINUE  207 

WR1TEIF4)  NACT  206 

00  1153  J*1.NK  209 

IFIS( J.4).GI.O) WRITE <F4) (COFI J.K ) ,K- 1 . 12 ) 210 

1153  CONTINUE  211 

ENCFILE  F4  212 

END  OF  MAIN  PROGRAM  213 

214 

STOP  215 

END  216 

SUBROUTINE  P ARREOI I . JP ,KP. J I ) 217 

IMPLICIT  REAL48I A-H.O-fl.T-2)  218 

COMMON  /BLKA/S  t CDF  » A . DENS . T I 219 

INTEGER  S 220 

DIMENSION  S( 1000.4) ,COFI 1000.12) *A( I21.DENSI 400) .TI(2I  221 

DIMENSION  JP ( 2 0 ) 222 

Till )*CDF ( I . I ) 223 

TI(2)>C0F(I.12)  224 

Jt*JP(l)  225 

CO  201  Jzl.KP  226 

L« JP \ J ) 227 

IFICCF'L. II *GT •TI(l))  Till ) *C0F ( L . I ) 228 

IF(CCF(L.12).GT.TI(2) ) T I <2 ) = CDF (L* 1 2 ) 229 

IF(L.EQ.Jl)  GO  TO  201  230 

S(L.4)=-I  231 

201  CONTINUE  232 

S I I • 4 )*—  I 233 

213  L»I  234 

KM*  10  235 

K*l  236 

0ELTAT*<TII2)-T1< I) 1/10.000  237 

MP*0  238 

Ms  I 239 

217  00  220  J*2.10  240 

K*K ♦ 1 241 

T*T  I I 1 ) ♦OFLUAT 1 J— l ) AOELTAT  242 

IF(T.GE.CDF(L.12)I  GO  TO  221  243 


"*•>  • 


-204- 


i 


« 


218  IF  ( I .Gt  .CDF  ( l.M)  .AND.  T.LT.CDF  (L  . *»♦!  ) ) GO  TO  219 

1 

GC  TO  216 

219  lF(M.Nt.l)  GO  T 0260 
T 1 *CDF (L  .11 
T2«C0HL  .2) 

T3=CCF1L  .31 

¥1=0.00 

¥2=0.0500 

¥3=0. 1500 
GO  10  261 

260  TI=CCF(L.M| 

T2=CDF1L.M»11 
T3=C0F (L.M-l 1 
Yl=A(Ml 
Y2=A|M»1 1 
Y3=A1M-1 ) 

261  0ENS1K1=TERP0L| ¥ l . ¥2 . ¥3 . T . T 1 . 12.131 
IF10ENS1K1.LT. 0.001  0ENS|K1=0.D0 
IF10ENS1K1.GE. 1.001  GO  TO  221 

220  CONTINUE 
GO  TC  231 

22  I KO  = K 

00  230  K=KO.KM 

230  OENS1K1=I.OO 

231  MP=MP+1 

IF < MP.GT.KP1  GO  TO  240 
L=JP(HP} 

K=KM 

M = 1 

KM=KM«9 
GC  TO  217 
240  CONTINUE 

00  251  M*2» 1 0 
OO  250  3=1. KP 
L»M+ JA9 

250  DENStP>=0ENStM|40ENSILl 

251  CONTINUE 
0ENS1 1 1=0.000 
OENS ( 1 1 1=1.000 

CALL  1NVSTR1 31.0ELTATI 

RETURN 

ENO 

SL6RCJUT1NE  SERREOI I.J1 1 
IMPLICIT  REAL461A-H.O-R.T-Z1 
COMMON  /6LK A/S  < CDF .A.0LNS.T1 
INTEGER  S 

01 MENS  I ON  SI  1000.41 ,COF(  1000. 121. A| I 2 I ,DENS( 400 1 . T1 < 21 

T 1 1 1 1 =COF | | . 1 | »COF ( J 1 . I I 

T 1 (2!=C0F( I . 12I4COF1 31.121 

IF (CCFl 31 . 12l.EQ.C0FI 31 , I 1 1 GC  TO  370 

IF  1C0F < I . 121  .EQ.C0F1 I .1)1  GO  TO  376 

DENS  < 1 1 = 0.00 

0ENS1 1 11=1.000 

tempq=t itii 

DELTA  1 = 1 1 I 12  1-TI 1 II 1/10.000 
00  399  3=2.10 
K I * I 

T=  TE  MPO  40FL0AT  f J— I ) 40ELTAT 
FO  T = 0 .0  00 
LI  = 1 1 


244 

245 


24  7 


246 

249 

250 
25  I 

252 

253 

254 

255 

256 

257 
25e 

259 

260 
261 
262 
263 
*64 

265 

266 
267 
266 

269 

270 

271 

272 

273 

274 

275 
2 76 

277 

278 

279 
260 
281 
2 62 

263 

264 

265 

266 
287 
286 
269 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 


i 
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311  K1*K141  300 

IFCK1.GE.12)  GO  TO  390  306 

TO IF*  T— COF ( 1 ,Kl»  307 

IF(TLIF.GE.CUF(31 .12) ) GO  TO  350  305 

312  IF  ( TCIF.GT.CDFI  31  ,1.1  ) I GO  TO  340  309 

LI-Ll-l  310 

1FI 1-LI 1312.312.390  311 

340  IF  (LI  .ME.  1)  GO  TO  360  312 

T 1 * C OF ( J 1 . 1 } 313 

T2*C0F(J1.2>  314 

T3«C0F(31.3)  315 

V1*0.00  316 

Y2*0 .0500  317 

Y3=0. 1500  310 

GC  TC  361  319 

360  T1*C0F( J1  .LI  I 320 

T2*CDF (Jl.LI+1)  321 

T3*CCF( J1.L1-1)  322 

Y1*A(LI)  323 

Y2* A ( L 1 4 1 ) 324 

V 3* A ( L I— 1 1 325 

361  FOT*FOT4T£PPOL( V 1 . Y2 . V3 . TO IF , T 1 .T2.T3)  326 

GO  TC  311  327 

350  FOT=FOT4l.OO  328 

GC  TC  311  329 

390  OEMS ( J 1 *0. I 004F0T  330 

IF(OENS(3).6E.I.OOI  GO  TO  380  331 

1F(UENS(3).GT.O.OO>  GO  TO  399  332 

OENS  I 31*0.00  333 

399  CONTINUE  334 

GO  TO  382  335 

380  CC  361  J J* J .10  336 

OENS1 331*1.00  337 

381  CONTINUE  330 

382  S(J1.2)*S( 1.21  339 

369  CONTINUE  340 

CALL  INVSTNC Jl.OELTAT)  341 

GO  TO  379  342 

370  DO  372  33*1.12  343 

372  COFIJl.JJ)*  LOF(I.JJ)  4 COF1J1.12I  344 

SI J1.2)*S( 1.21  345 

GO  TO  379  346 

376  OC  378  JJ*1.12  347 

378  C0F1J1  ,33)*COF( Jl.JJl  ♦ COF(  1.121  340 

S1J1.21*  SI  I .21  349 

379  RETURN  350 

ENO  351 

SUBROUTINE  CC IN  EOl I.JI.J2.J3.J4.J12.JI3)  352 

IMPLICIT  NEAL48IA-H.0-N.T-ZI  353 

COMMON  /BLKA/S.COF.A.OENS.TI  354 

INTEGER  S 355 

DIMENSION  SI1000.4I .COF( 1000. 12) *A< 12) .OENS1  400 )• Til  2)  356 

DO  406  3*1.2  357 

L*1«(J-1)4I1  356 

» TI-COFI 33.L) »COF( 34.L ) 4COF (3I2.LI  359 

T2*C0F( t.L I 4C0F1 32. L I 4COF1 31 2. LI 4C0F1J4.L I 360 

T 3*C0F I I .L14CDFI 31 . L ) t COF I 3 1 2 . L I 361 

T4*COF( I.L)»C0F(313.LI  362 

IFITI.GE.T2.AN0.T1.GE.I3.AN0.T1.GE.T4)  GO  TO  403  363 

IF ( T 2 «GE • T1 .AND. T2 . GE . T3. AND. T2 . GE . T4 ) GC  TO  404  364 

IF(TJ.GE.Tl.ANO.T3.GE.T2.ANO.TJ.GE.T4)  GO  TO  405  365 
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TI CJ)=T4 

366 

CC  TO  406 

36  7 

403 

TICJ)=T1 

368 

OG  TO  406 

369 

404 

TI(J)=12 

370 

00  TO  406 

371 

405 

TI t J ) = T3 

372 

406 

CCNT INUE 

373 

OELTAT=(TU2)-T  II  111/ 10. 0D0 

3 74 

DENSI l 1=0.00 

375 

OENSC  1 1 1=1.000 

3 76 

00  470  3=2.10 

377 

T = T I ( 1 1 4 DFLUAT1 J-1140ELTAT 

378 

K I = 1 

379 

1.13=11 

380 

FCT  = 0 . 0 

381 

410 

K I =K l ♦ 1 

382 

IF  ( K 1 .OE .121  00  TO  460 

383 

TOIF 13=T— CDF( I.KI 1 

384 

IF  < TOIt- 1 J.Oc.COFl  J1 J.  12)  1 00 

TO  412 

385 

41  1 

IFCTCIFU.GT.COFCJI  J.L13)  > 00 

TO  413 

366 

LI3=L13-1 

387 

IF  < l-L 13)411 .41 1 .460 

388 

4 12 

F 13= 1 .00 

389 

00  TO  415 

390 

413 

IF  ( L 1 3 . NE • It  GO  TO  491 

391 

T 1=CDF I J13. 1 1 

392 

T2=C0F ( J13.2) 

393 

T3  = CDF<  J13.3) 

394 

V 1=0 .00 

395 

Y2=0 .0500 

396 

Y3=0. 1500 

39  7 

00  TO  414 

398 

401 

T1=C0F< J13.L13) 

399 

T2  = C0F(  J13.L1JM  1 

400 

T3=C0FI J13.L13-1) 

401 

Y1=A(L13) 

402 

Y2= A (L 1 34 1 ) 

403 

V 3 = A (El  3—1 1 

404 

4 14 

F13=TERP0L( VI. Y2.V3. TOIF 13. TI 

.T2.T3I 

4 05 

IF (F 1 3.LT .0.001  FI  3=0 .00 

406 

IF  (F 13.0T.1.001F 13=1 .00 

407 

415 

K 12=  1 

408 

L 1 = 1 1 

409 

F0T2=0.00 

410 

416 

K12=K124t 

41  l 

IFCK12.LT. 12)  00  TO  416 

412 

41  ? 

FCT=FCT4FCT2*F13 

413 

00  TO  410 

414 

416 

TO  IF 1 = T0IF 13-COFC J12.K 12 1 

415 

IFCTOIF1.OE.COF1  Jl.  12) ) OO  TO 

420 

416 

419 

IF ( TCIF1 .OT.CUFI  Jl.Ll 1 ) GO  TO 

421 

417 

L 1 =L  1 — 1 

418 

IFC 1-LI 1419.419.41 7 

419 

420 

F 1=1 .00 

420 

00  TO  422 

421 

42  1 

IF  1L 1 .NE.  1 I OO  TO  482 

422 

Tl=COFi Jl .1 ) 

423 

T2*C0F< Jt , 2# 

424 

T 3 = CCF ( J 1 . 3 ) 

425 

V1=0.00 

426 
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V2«0.0500  42/ 

V3  = 0< 1 SOO  428 

GC  TC  427  429 

482  T 1 = COF  ( J 1 .L 1 ) 430 

T2=CDF (J1.L1M)  431 

T3-CCF (J1.L1— 1)  432 

V l = A C L 1 1 433 

V2*  A (L  1 + 1 ) 434 

V3—AIL I— 1 ) 435 

427  F !■»  I E*<PGL  I Y 1 • V 2.  V3,  TD  IF  I . Tt.  T2.  T3)  436 

IFIFl .LT.O.OO)  F 1 —0 . 00  437 

IFIFl. GT. 1.00)  F 1*1 .00  438 

422  K4= l 439 

4.3=11  440 

L2-11  441 

FOT1=C.OO  442 

423  K4=K4 ♦ 1 443 

IFItC4.LT. 12)  GO  TO  425  444 

424  FOT2=FOT24F1*FOTI  446 

GC  TO  416  446 

425  T0IF3=T-C0F<J4.K4)-C0F( J12.K12)  447 

T0IF2*T01F3— COFl  I.KI  1 448 

IF(TD1F2.G£.CDF( J2. 12 1 1 GO  TO  430  449 

426  1F(T01F2.GT.C0F( J2.L21)  GO  TO  431  450 

L2=L  2— 1 451 

IFI1-L2I426. 426.424  452 

430  F 2= I • DO  453 

GC  TO  435  454 

431  IF  (L2  .KE.  1)  GO  TO  433  455 

T I -CDF ( J2 . 1 1 456 

T2=C0F<J2,2)  457 

T3-C0F1 J2.3I  458 

Vl-O. DO  459 

V2-0 .0500  460 

V3-0 . 1 SOO  461 

GO  TO  434  462 

433  TI-COF ( J2.L2)  463 

T2-C0FI J2.L241)  464 

T3-CCFC J2.L2-1)  466 

V I = A I L2 1 466 

V2-AIL241I  46/ 

V3-AIL2-I)  460 

434  F 2=  T fcfcPOL ( Y l . V2.  Y3.  T0IF2.  Tt.  T2.  T3)  469 

IFIF2  .LT.O.OO)  F2— 0 .00  470 

1FIF2  .GT.1.00)  F2- 1 .00  471 

435  IF(T0IF3.GE.C0F( J3.I2) ) GO  TO  440  472 

436  1FIT01F3.GT . COF I J3.L3) ) GO  TO  445  473 

L3-L3-I  4/4 

IF<  l— L31436.436.424  476 

440  F 3- 1 .00  4 76 

GO  TO  450  477 

445  IF  (L3  .NE.  1)  GO  TO  447  478 

T 1 -COF ( J3 .1)  4/9 

T 2-CCF ( J3.2 ) 460 

T3-CDFIJ3.3)  481 

Vl-O. 00  482 

V2-0.0500  483 

Y3-0.1500  484 

GO  TO  449  465 

447  TI-CDFl J3.L3)  466 

T2-CDFI J3.L34  1 ) 48/ 
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T3=CDF ( J3.L3-1 I 4ee 

V1=A(L3)  46 9 

Y2=A(LjD>  490 

yj-Atu-i)  4<ai 

449  F 3 = TERPOL ( V l . ¥2.  ¥3.  TCIF3.  Tl.  T2 . T3)  492 

IFtFJ  .LI. O.OJ)  F 3 = 0.00  493 

IF <F 3.CT .1.00)  F3-1.00  494 

450  FCT l=FCT 1»F2*F3  495 

(iL  TC  423  496 

460  OENSt J)=FCT*0. I 0-2  497 

IFtUENSI  Jt.LT.O.OO)  UENStJ)=0.00  49b 

IF tOENSf J) .UE. I .DO)  CO  TO  480  499 

470  CONTINUE  500 

4eO  OC  4 d t JJ  = J.lO  501 

OENSt J Jl = 1.00  502 

481  CONTINUE  503 

S( Jl.JI-SI J1J.3)  504 

S(J1.2)=StI.2)  505 

CALC  INVSTRt Jl .OELTAT I 506 

RETURN  507 

ENC  50b 

SUEHOUTINE  CC2RE0I 1 . Jl . J2 . J3 . J4 . J8. J12)  509 

IMPLICIT  REAL*8< A-M.0-R.T-Z)  510 

COMMON  /BLKA/5.C0F.A.UENS.TI  511 

INTEGER  S 512 

O I ME  NS  I UN  St  1000.4 ) .CDFf  1000 . 12) .At  121 .OENSt 400) . Tit  2)  513 

00  510  J-1.2  514 

L=  1 ♦ t J-  I I • l 1 515 

T 1 = CUF ( I .L) 4C0FI Jl. L DCOFt  J12.L  ) 516 

T2=CUF  t I ,L1 ♦CJFt  J2.L ) FCOF  t J4 .L ) ♦COF t J 1 2 • L ) 517 

T3-C0FII.L) 4COF( J2. L I *COF  t JB .L ) 518 

T4=CQFf  J3.LDCUK  J4.LIKOK  J12.L)  519 

T5-C0F t J3.L )4C0F f J8.L  I 520 

IF t T l.GE. T2.ANU.  T 1 . GE . T3. AND. T 1 .GE.T4 .ANC.T 1 .GE.T5)  GO  TO  501  52  1 

IFtT2.GE.Tl.ANU.T2.GE.T3.AN0.T2.GE.T4.AN0.T2.GE.T5)  GO  TC  502  522 

IF t TJ.GE . Tl .ANU. TJ.GE.T2. ANO.T J.GE.T4 .AN0.T3 ,GE. T5)  GO  TO  503  523 

IFt I4.GE.T1 .ANU.T4.GE.T2.AN0.T4.GE.T3.AN0.T4.GE.T5)  GO  TO  504  524 

TItJ)*T5  525 

GO  TO  510  526 

501  TItJl-Tl  527 

GC  TC  £10  528 

502  TlfJ)=T2  525 

GO  TO  £10  530 

£03  TItJ)*T3  531 

GO  TO  510  532 

504  TItJ)*I4  533 

510  CONTINUE  534 

OEL  tAT*tTl<2)  — TIC  1 ) 1/10.000  535 

OENSt 1 1*0.00  536 

OENSt  ID*  1.000  537 

OC  570  J*2« 1 0 536 

T*TltI>  ♦ OFLOAT  I J—  1 ) 40  EL  TAT  535 

Kl*l  540 

F 0 T * 0 .00  541 

511  KI‘KIM  542 

IFIKI.GE.12)  GO  TO  560  543 

K 1 2*  1 544 

L I * ) 1 545 

F 0 T 3*  0 . 00  546 

512  K12*K12D  547 

IFfK12.LT. 12)  GO  TO  514  548 


JJ 


-209- 


513 

FCT=FCT4FCT3 

549 

CO  TO  511 

550 

514 

TCIF1=T— CCF1 l.Kl l-COFt  JI2.K12) 

551 

IF1TC1F I.GE.COF1 J1.12))  CO  TO  517 

552 

SIS 

IF1TCIF1.GT.CDFI J1.L1 ) ) GO  TO  518 

553 

Ll-Ll-1 

554 

IFU-L1 ISIS. SIS. 513 

555 

517 

F l « 1 . DC 

556 

CO  TO  S 1 9 

557 

516 

IF  CLl  .KE.  1)  GO  TO  971  — ‘ 

558 

T 1 *COF ( J 1 .11 

SS9 

T 2*CDF 1 J 1 .2  ) 

560 

T3»C0F< J1 .3) 

561 

VlxO.DO  % 

562 

V 2<  0 . 0500  “ 

563 

Y 3 — 0 . 1500 

564 

CO  TO  972 

565 

971 

TlxCOFl J1.L1) 

566 

T2=C0F( J1 .L141 ) 

567 

T3xCCF(  J1.L1-1)  s. 

568 

VlxAILl) 

569 

Y2*  A 1 L 1 + 1 ) 

570 

V3=A1L1-1 ) 

571 

972 

F 1 = T EfiPOL  1 Y l , Y2  . Y3.  T01FI.  Tl.  T2.  T31 

572 

IF1FI.LT. 0.00)  FlxO.OO 

573 

IF1F1 .CT.l.OO)  Fl-l.OO 

574 

519 

K3*l 

575 

FC  T2  = 0. DO 

576 

520 

K3-K3M 

577 

IF1K3.LT. 12)  CO  TO  521 

570 

F0T3=FCT3*F l*FOT2 

579 

CO  TO  512 

seo 

521 

K2x| 

581 

FCT 1x0.00 

582 

L4»  1 1 

56  3 

L6«ll 

584 

522 

K2xK2  4 1 

585 

1F1K2.LT. 12)  CO  TO  526 

586 

525 

FCT2=FCT2fF0T1 

587 

GO  TO  520 

588 

526 

Tl*T-COFl J3.K3) 

589 

T2xT-CDFl l.KI )— COFI J2.K2 ) 

590 

IF  1T2-T 1)526. 527.52 7 

59  1 

526 

TO  IF  8 * T2 

592 

CO  TO  530 

593 

52  7 

TC IFflxT 1 

594 

TOIF4=TOIF6-COF1 J12.K12) 

595 

530 

IF1 TCIF4.CE.COFI  J4. 12  )V  CO  TO  535 

596 

531 

IF1T01F4.CT.C0F1 J4.L4 )\  GO  TO  540 

59  7 

L4*L4-I  1 

598 

535 

F 4=1. CO  \ 

599 

CC  TO  541  t 

600 

540 

IF  IL4  .M.  1 ) CO  TO  973' 

601 

TlxCOFl J4.1) 

602 

T2«C0F1 J4.2) 

603 

T 3>C0F 1 J4 . 3 ) 

604 

V 1x0.00  ' 

605 

Y2*0 .0500 

606 

Y3*0. 1500 

607 

CO  TO  974  '• 

608 

973 

TlxCOFl J4.L4) 

609 
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T2=C0F ( J4 ,L4»1 ) 

610 

T3=C0F ( J4 .L4- l 1 

61  1 

7 1 — A ( L 4 1 

612 

V2=A(L4*1 1 

613 

V3*  A |L4  — 1 ) 

6 1 4 

9/4 

F4=TERP0LI VI . V2,  Y3.  TOIF4.  11.  T2.  T3> 

615 

1 F ( F 4 .LT.O.OUi  F4  = 0.00 

616 

IF  <F4  .GT. 1.00»  F4= 1.00 

617 

54  I 

IF  1 TC IF6.GE.C0F1 J8. 12 ) 1 GO  TO  545 

618 

542 

1F< T0IF8.GT.CDFI J8.L8) 1 GO  TC  550 

6 19 

LS=L8-1 

62  0 

l F 1 1 — L 8 ) 542.542.525 

621 

545 

F6= 1 .00 

622 

GO  TO  551 

623 

550 

IF  IL8  . NE.  11  GO  TO  975 

624 

T 1=CDF  C J8, 1 ) 

625 

T2=CDFt J6. 21 

626 

T3=C0F  < J8.31 

627 

Y1»0.C0 

628 

V 2=  0 . 0500 

629 

V3  = 0 .1500 

630 

GO  TO  976 

631 

975 

Tl=C0F( J8.LU1 

632 

T 2— COF ( J8.L8F1 1 

633 

T3=CDF 1 J8 .L8- 1 ) 

634 

VI— A(L8I 

635 

V2=All 8*1  1 

636 

Y3=A(L8-1 1 

637 

976 

F8=T£RPC’  1 VI  . V2,  V3 . T01F8.  Tl.  T2.  T3 1 

638 

I F ( F 6 .LT.O.OO)  F8=0.00 

639 

IF(F8.  GT. 1.001  F 8= 1.00 

640 

561 

F0TI=F0T14F4*F8 

64  1 

GO  TO  5 22 

642 

560 

DENS  I Jl  =FCT40.  1 1>—  3 

643 

IF (DENS ( J 1 .LI .0. DO  1 OENSCJI-O.OO 

644 

IF (0LNS1 Jl .Gt.l .001  GO  TO  560 

645 

570 

COM  1 NOE 

646 

560 

DO  581  JJzJ.10 

647 

OEMS ( JJ1  = 1 .00 

648 

561 

CCNI INLE 

649 

SI Jl  .21 = SI I .21 

650 

SIJl .31=51 J12. 31 

651 

CALL  1NVSTWI Jl .OELTATl 

652 

WE  TOWN 

653 

END 

654 

SOOROOT INE  CCJWEOI 1 . Jl . J2. J3 . J5. J6. J7) 

655 

IMPLICIT  WE AL  *8 ( A— M . 0— R . 1—Z 1 

656 

COMMON  /OLKA/S. COF . A.0ENS.T1 

657 

INTEGER  S 

658 

01  ME NS  I ON  SI  1000 .4 ) .COFI  1000. 12 1 . A{ 12 1 .OENSI 400 1 . Til  21 

659 

00  610  J= 1.2 

660 

L=  l ♦ I J— 11411 

661 

T 1 =COF 1 I ,L>  FCDFI Jl .L 1 FCDF 1 J6 .L) 

662 

T 2=C0F I I ,LI *COF I J2 • L ) +COF I J7 . L 1 

663 

T3»C0F 1 I .L 1 FCOFI Jl .L14C0FI J5 .L14C0FI J7.L1 

664 

T4=CDF 1 J3.L  > FCOF I J7.L 1 

665 

IF  1 T 1 .GE.T2.ANO. T 1 . GE . T 3 . AND . T 1 . GE.T4 1 GO 

TO 

602 

666 

IF  I T2.GE. Tl . AND. T2.GE.T3.AN0.T2.GE. T4 1 GO 

TO 

60  3 

667 

IF  1 T3.GE.T1 .AN0.T3.GE.T2.AN0.T3.GE.T4 ) GO 

TO 

604 

668 

Til J)=T4 

669 

GO  TO  610 

670 
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e 02 

T 1 1 J)=T1 

07  1 

GO  TO  610 

672 

603 

11 1 J)=T2 

673 

GC  10  01 0 

6 74 

604 

Til  J1  = T3 

675 

GO  TO  610 

676 

610 

CCM  1 NUE 

677 

DELTAT=CTI(21-T  1(111/10. 

000 

678 

OENS ( 1 1=0.00 

679 

OENS  < 1 1 1 = 1.000 

660 

OC  O 70  J = 2 « 10 

661 

T = TI(1»  ♦ DFLOAT  < J— 1 ) * DEL TAT 

682 

K7=  1 

663 

1.3=1  1 

684 

ECT  = 0 .00 

665 

615 

K7=K7t 1 

666 

1FIK7.GE.121  GO  TO  660 

667 

T01F3=T-C0F< J/.K71 

6ee 

IF ( T01F3.GE.C0F( JJ. 121 1 

GO  TO 

625 

669 

620 

1F(T0IF3.GT.CUF( J3.L311 

GO  TC 

622 

690 

L 3=L  3—  1 

691 

1 F ( 1-L3  1620.620.660 

692 

6 22 

IF  ( L 3 .KE.  11  GO  TO  671 

693 

T l=CDF ( J3. 1 1 

694 

T2=C0F( J3.21 

695 

T3=CDF< J3.31 

696 

V1=0.C0 

697 

72=0. C500 

698 

73=0.1500 

699 

GO  TO  672 

700 

6/1 

T 1 = C0F ( J3.L3 1 

701 

T2=C0FC J3.L3+1 1 

702 

T3=C0F ( J3.L3-I 1 

703 

7 1 = A ( L3 1 

7C4 

72=A(L34 1 1 

705 

7 3 = A ( L 3—  1 1 

706 

67  2 

F3=TE«P0L(7I , 72.  73.  T01F3. 

Tl.  T2.  T31 

707 

I F ( F 3 .LT. 0.001  F 3=0 .0  0 

708 

IF(F3.GT .1.001  F3=1.D0 

709 

GO  TO  626 

710 

625 

F3= l .00 

71  1 

626 

KI  = 1 

712 

L 2 = 1 | 

713 

F 0 T2  = 0 • 00 

71  4 

627 

K I=K I ♦ 1 

715 

1F1KI.LT. 12}  GO  TO  630 

7 16 

626 

FCT=FCT4F3*F0T2 

717 

GC  TO  615 

718 

630 

T01F2=T0IF3-C0F( 1 ,KI 1 

7 19 

IF1T01F2. GE .COF  ( J2. 121 ) 

GO  TO 

635 

720 

631 

IF1T01F2.GT.C0F1 J2.L211 

GO  TO 

636 

721 

L2=L2-1 

722 

IF  1 I-L2 1631 .631 .628 

72  3 

635 

F2» 1 .00 

724 

GO  TC  637 

725 

636 

IF  ( L 2 .NE.  11  GO  TO  673 

726 

T1=C0F( J2.I 1 

72  7 

T2*CCF( J2.21 

72  6 

T3  = C0F  < J2.31 

729 

71=0.00 

730 

72=0.0500 

731 
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Y3  = 0. I 5 CO 
OC  TC  674 

673  I l-CUF ( J2 .L2 » 

T2*CCHJ2.L7»I  ) 

T3«C0F< J2.L2-1  > 

Yl=A(L2> 

Y2  = A (L24 1 ) 

Y 3 = A( L2- I I 

674  F2=TtPP0L(Yl ■ Y2  , YJ.  TDIF2.  71.  T2 . T3) 
IF1F2  .LI. O.OO)  F2=0.D0 

I F1F2  .01. 1.00)  F2= 1.00 
637  K lx  1 

FCTl=O.DO 
L5=  1 1 
L6-  1 I 

640  K I =K  It  1 

1F1K1.LT. 12)  Go  TO  645 

641  FCT2=FCT2*F2*F0T 1 
GO  TO  627 

645  T0IF5=T0IF2-C0F( J1 ,K1  ) 

TDIF6=T-CCF( I.KI )-CDF( J1 . Kl ) 

IF! TOIF5.GE.COM  J5. 12 ) ) GC  TO  650 

646  IF  1 TO IF5.GT.C0F1 J5.L5) ) GO  TO  64  7 
LS=L5-1 

IF  1 1-L5 ) 646. 0 46 ,64 1 

647  IF  ( L 5 • NE.  I)  GO  TO  675 
T l=COF ( JS, 1 ) 

T2=C0F( J5.2) 

T3=C0F( JS .3) 

VI=O.DO 
V2=0. 05D0 

Y 3 = 0 . 1 500 
GC  TO  676 

675  T 1 =CDF 1 J5.L5 ) 

T2xC0F«  J5,L5*l  ) 

T3=CDF( J5.L5-1) 

V 1 = A ( L5 ) 

Y 2= A 1 L 54 1 ) 

V3=  A 1 L5— 1 ) 

676  F 5= T EPPGL 1 Y1 . V2 . Y3 . T0IF5.  Tl.  T2 . T3) 
IF (F5.LT .0.00 > F5=0.00 

1F1F5.GT. 1.00)  F5= 1 .00 
GO  TO  651 

650  FS=1.C0 

651  IF  1 TD1F6.GE.C0F 1 J6 . 12) 1 GO  TO  6S5 

652  IF1T0IF6.GT.C0F1 J6.L6))  GO  TO  656 
L6»L6— 1 

IF  1 1 -L6  >652.652. 641 

655  F6= 1 .DO 
GO  TO  659 

656  IF  (Lb  . NE'.  1)  GO  TO  677 
T 1=CDF 1 J6 .1 ) 

T2  = CDF ( J6 .2) 

T 3*C0F ( J6.3) 

V 1=0.00 
V2=0.0500 

Y 3 = 0 . 1500 
GO  TO  676 

677  T1=C0F ( J6.L6) 

T 2=CDF 1 J6.L641  ) 

TJxCOFl J6.L6-1) 


732 

733 
7 34 

735 

736 

737 

738 
730 

740 

741 

742 

743 

744 

745 

746 

74  7 
7 

7 a 

750 

751 

752 

75  J 

754 

755 

756 

757 

758 
755 

760 

761 

762 

76  3 

764 

765 

766 

767 

76  8 
765 
770 

77  1 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 
78V 

790 

791 

792 
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V 1 *A ( L6 1 

79  3 

V2=A|L6*1 I 

794 

Y3=  A (L6— 1 ) 

795 

678 

F6-*  T ERPGL  1 Y 1 . V2.  Y3  . T0IF6.  Tl.  T2.  T3) 

796 

IF|F6.LT.0.D0)F6=0.O0 

79  7 

IF (F6 .61. 1 .DO)  F6= 1 .00 

798 

659 

F0TI*FGT1 ♦Fb*F6 

799 

CO  TD  640 

800 

66  0 

DENS ( J ) = FOT  *0.1 0—2 

801 

IFIDENSI Jl.LT.O.DO)  DENSIJ)=O.QO 

802 

IFIDENSI Jl.GE.l .DO)  60  TO  680 

803 

6 7 C 

CONTINUE 

804 

680 

DO  681  JJbJ.10 

805 

DENS  1 J J ) «=  1 • CO 

806 

681 

CONTINUE 

807 

SIJ1.2)bS{ I .2) 

808 

SI J1  ,3)  = SI J6.3) 

809 

CALL  INVSTNI J1 .OELTAT ) 

810 

RETURN 

81  1 

END 

8 12 

SUBROUTINE  CaIN  EDI  i . J1 . J2 . J3 . J4 . J9, J 1 0. J 1 1 ) 

813 

IMPLICIT  REAL48I A-H.O-N.T-Z) 

814 

COMMON  /BLKA/S.COF. A.OENS.TI 

815 

1NTE6ER  S 

816 

DIMENSION  SI  1000.4)  .CDF  I 1000.12) . At  1 2 ) . OENSI 400 ) .Tl 12) 

81  7 

CO  710  J=l,2 

81  8 

L*  ItlJ—  l)*U 

819 

T 1-CDFI  I.LlfCUFOl.L) 

820 

T2*CCF1  1 . L ) +COF  I J2.DFCDFIJ4.L) 

821 

T 3 = CDF  1 J 1 0 . L ) *CL)F  1 J 1 1 ,L> 

822 

T4*C0F( J9.L)»LDFI JIO.L I4C0FI J4.L ) 

823 

T5*C0F<  J3.L ) »CDF| J4.L) 

824 

IF  1 T 1 .6E.T2.AN0.T l.CE .T3.AN0.T 1 . 6E . T 4 . ANO . T 1 .CE.TS)  GO 

TO 

701 

825 

IFI T2.6E.T1 .ANO. T2.6E. TJ. ANO. T2.GF. T4.ANC. T2.6E. T5)G0 

TO 

702 

826 

IF  1 T 3.6E.T 1 .ANU.T3.6E.T2.AND.T3.CE.T4.AN0.T3.GE . T5)  60 

TO 

703 

827 

IFI T4.CE.T1 .AND.T4.CE.T2.AN0.T4.CE.T3.AN0.T4.CE.T5)  60 

TO 

704 

828 

TIIJ)*T5 

829 

GO  TO  710 

830 

701 

T1IJ)*TI 

831 

GO  TO  710 

832 

702 

Tl  1 3 ) * T 2 

833 

GC  TC  710 

834 

703 

Tl  1 J)*T3 

835 

GO  TO  710 

836 

704 

Til J)*T4 

837 

710 

CONTINUE 

838 

OENSI 1 )zO«DO 

839 

OENSI 11 1=1.000 

840 

DELTAT=IT1 (21-T II  1 1 1/10.000 

841 

00  790  JB2.I0 

84  2 

T«TII1)  ♦ OFLOATI 3-1 ) 4DELTAT 

843 

K4*  1 

844 

FOT-O.OO 

845 

L3«l  1 

846 

715 

K4>K44| 

847 

IFIK4.GE.I2)  GO  TO  785 

848 

TOIF J*T-COF( J4.K4) 

849 

1FITC1F3.GE.CUFI J3.I2))  GO  TO  720 

850 

716 

IFITCIF3.GT.C0FIJ3.L3II  GO  TG  717 

851 

L3=L 3-1 

852 

IFI  1— L3 1716.716.  785 

853 
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717  IF  1LJ  .NE.  1)  GO  TO  791 
T l =COF ( J3. I 1 
T2*CCF < JJ.21 
T 3*COF ( JJ.3) 

71*0. DO 
72*0.0500 
73*0.1500 
CO  ID  792 

791  TI*C0F<33.L3> 

T2*C0F  < J3.L3M  1 
T3=C0F<  J3.L3-1) 

71*A(L3I 

72* A< L3»  I I 
V3* A < L 3— 1 1 

792  F3=TfcPP0L<Yl  . 72.  73.  T0IF3.  Tl,  T2. 
IMF  J .LT.O.DO)  F 3*  0 . O 0 
1FIF3.GT.1.00)  F3* I .00 

GO  TO  721 

720  F 3= l .00 

721  K 1 * 1 
FOI1=0.00 
L2*  1 1 
1.1*1  l 

725  K 1*K 1 ♦ l 

IF1KI.LT. 121  GO  TO  730 

726  FG I=FCT »FCT l*F3 
GO  TO  715 

730  T01F2*I01F3-CDF1 J .KJ 1 
T 0 I F I = T — CDF  1 I.K1  1 

IF<  TD1F2.GE.CDF  I J.2.  12)  ) GO  TO  732 

731  IF1TD1F2.GT.COF1 J2.L21)  GO  TO  733 
L2*L2— 1 

IF! 1 — L 2)731 . 731 .726 

732  F2* 1 • DO 
GO  TO  735 

733  IF  <12  .NE.  1)  GO  TO  793 
T1*CUFC J2.1 ) 

T 2*C0F ( J2 . 2 ) 

T3=C0F < J 2.3) 

71*0. DO 
72*0 .0500 
73*0. 1500 
GO  TO  974 

793  T 1 =CDF I J2  »L2 ) 

T2=CDF ( J2.L2M ) 

TJ*CDK  J2.L2-1 ) 

71*A(L2) 

72* A | L24  I ) 

7J»A1L2-1  ) 

974  F2=  T ENPUL  <71.  72.  73.  T01F2.  Tl.  T2. 
IF1F2  .LT.O.OO)  F2*  0 • 00 
IF  If  2 .GT.l.OO)  F 2 * I .0  0 

735  IF< TDIFl .GE.COF! J! . 12) ) GO  TO  737 

736  IFITDIFI.GT.CDFI Jl.Ll))  GO  TO  73S 
C 1 =L l—l 

1 F ( 1 — L 1 >736.736.726 

737  Fl=1.00 
GC  TO  740 

736  IF  <LI  .NE.  1 ) GO  TO  795 
T 1 *CCF I J | ,|  ) 

T 2 = CDF < J I .2) 


654 

855 
656 
857 

856 

659 

660 
eoi 
862 
863 
664 

865 

866 
86  7 

T3 ) 866 

869 

870 

871 
8 72 
873 
674 
8 75 

876 

877 

878 

879 
660 
881 
88  2 

883 

884 

885 

886 
887 
688 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 
! 901 

902 

T3 ) 903 

904 

905 

906 

907 

908 

909 

910 
91  1 

912 

913 

914 
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T 3=C  OF ( J 1 , 3 I 

Y1=0.C0 

Y2=0.0500 

V 3 = 0 . 1 'j00 
00  TO  796 

795  T 1*CDF ( J1 ,L1  I 

T 2=CDF  < J1 ,L1  + 1 I 
T 3 = C CF  ( J I ,LI-I) 

V1=A(L1 I 
V2<*(LHII 
y3=a<li-i  i 

796  F 1 = Tfc  F POL  I V 1 » Y2  • Y3.  TOIFI.  Tl.  T2 . 
1FIF l.LT.O.DOJ  Fl=O.DO 
lF(Fl.OT.t.U0l  Fl=l.UO 

740  *10=1 
FCT2*0.00 
L9*  1 1 

L 1 1 = 1 1 

741  K10«K104| 

1FIK10.LT.121  OO  TO  74 3 

742  FCT1=F0T 1*F2*F1*F0T2 
CO  TO  72b 

743  TClF9=TCIF3-COF< J10.K10) 

TO  IF  I l=T-CDF< J10.K1 01 

IF ( T 0 IF9.GE.C0F ( J9. 121  i GO  TO  74  7 

744  IF ( T0IF9.GT.COFI J9.L91 1 00  TO  74b 
L9*L9-I 

IF (I-L9 1 744, 744,742 
747  F9= 1,00 

OC  TC  750 

746  IF  (Lt  .NE.  1 1 00  TO  797 
Tl=CCF(J9.tl 
T2=CDF( J9.2I 
T 3=C0F ( J9 , 3 1 
Y1=0.C0 
Y2-C.0500 
YJ«0.I5D0 
OC  TO  796 

797  T1=CCF( J9.L9) 

T2»CDF  ( JS.L9H  ) 

T3=C0F( J9.L9-1) 

V1-AIL91 

V2=A(L«M) 

Y 3*  A < L9— I I 

796  F9  = IEFPGL ( V 1 , Y2 , V3.  T0IF9.  Tl,  T2, 
IF (F9.LT. 0.001  F 9*0,00 
IFCF9.CT. 1.001  F 9= 1.00 

750  IF < IOIF 1 l .Ofc.COF ( J1 1 . 12)1  CO  TO  755 

751  IF( TDIFI I ,0T .CDF « J1 l, LI  I ) » 00  TO  756 
L11*L1I-I 

IF! I-LI 1 >751.751. 742 

755  FI  1 = 1 .00 
00  TO  760 

756  IF  (L1I.NE.  II  00  TO  799 
T 1 = C0F ( J I I . I I 

T2-C0FI JII.2I 
T3=C0F  ( JU  .3) 

V 1*0.00 
Y2-0.05C0 
V3-0.1500 
00  TC  600 


915 
9 16 
917 
91b 
919 
92  0 
92  1 
922 
92  J 

924 

925 

T3>  926 

927 

92U 

929 

930 

931 

932 

933 

934 

935 

936 

937 
93b 

939 

940 
94  1 

942 

943 

944 

945 

946 

94  7 
94b 

949 

950 

951 

952 

95  3 

954 

955 

956 

957 
956 

T3I  959 

960 

961 

962 

96  3 
96  * 

965 

966 
96  7 

968 

969 

970 

971 

972 

973 

974 

975 
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799  1 1-COF ( J l l .L l I 1 976 

T2*CDF ( J I I .C I 1 ♦ 1 t 977 

T3=CDF tJ I 1 .LI l-l I 9 7 8 

VI-A(Lll)  979 

V2=A(L114l>  980 

V3*A(H1-1I  981 

800  Fil^TLRPOLlYl.  Y 2,  73.  I0IF11.  Tl.  12,  T3t  982 

IF(F 1 1 .Ll.O.OO)  FU-0.00  983 

IF  (Fll.GT.l.OOt  FU-1.00  984 

760  FCT2=FQ124F9*Fl 1 985 

GO  TO  741  986 

785  OF  NS ( J I = FOT*0.lO-2  987 

1F10ENSI JI.LI.O.DO)  DENS(J)=0.D0  988 

1F(0ENS( JI.Gc.l .00)  GO  TO  780  989 

790  CONTINUE  990 

780  00  781  JJ=J.10  951 

OL  NS ( J J ) - 1 .00  992 

781  CONTINUE  993 

S(J1.2)*S(I»2)  994 

CALL  INVSTRl J1 .OELTAT ) 995 

RETURN  996 

END  957 

SUBROUTINE  D22WEOI I . J1 . J2 , J3 , J4 . J8. J10, J1 1 I 998 

IMPLICIT  REAL*8< A-H. 0-R.T-2)  999 

COMMON  /BLKA/S. COF  «A ,OENS,TI  1000 

INTEGER  S 1001 

O I ME  NS  I ON  SI  1 000.4) .COF ( 1000 .12)  . A< 12 ) ,DENS< 400 1, TI C2)  1002 

DC  810  1.2  1003 

L=  1 ♦ ( J— 11*11  1004 

Tl— CDFII.Ll FCOF ( J 1 . L 1 1005 

T2*C0F I J2  «L 1 *CUF | I, LI *COF ( J4 ,L 1 10  06 

T 3 = C0F I I .LI ♦COF I J2 . L 1 ♦ COF ( J8 . L I fCOF ( J 1 1 .Cl  100  7 

T4=C0F( J3.L 1 fCOFI J4 .L I 1008 

T 5=C0F ( J3  »L ) ♦ COF I J8 • L ) ♦COF I J 1 1 ,L  I 1 009 

T6=CDF( J10.L!»COP< Jl l ,Ll  1010 

IF  I T 1 .GE. T2.AND. Tl . GE . T3 .AND .T 1 . GE.T4 .AND.T 1 . GE . T 5 . ANO . T 1 . GE . T6 ) 1011 

1GC  TO  801  1012 

IF (I2.GE.T1.AN0.T2.GE.I3.AN0.T2.GE.T4.AN0.T2.GE.T5.AN0.T2.GE.T6)  1013 

IGO  TG  802  1014 

IF( T3.GE.Tl.ANO.T3.GE.T2.ANO.T3.GE.T4.ANO.T3.GE.T5.ANO.T3.GE.T6)  1015 

1GC  TO  803  1016 

IFIT4.GE.TI.AN0.T4. GE .T2.AN0.T4. GE .T3.AN0.T4 .GE . T 5 . A NO . T 4 . GE . T 6 1 1017 

IGO  TO  804  1018 

IF ( T5.GE. Tl . ANO. T5. GE . T2. ANO . T5.GE. T3.AN0.T5.GE . T4. AND . T5 .GE . T6 ) 1019 

1GG  TG  e05  1020 

TI(J)*T6  1021 

GC  TO  810  1022 

801  TI(J)=T1  1023 

GO  TO  810  1024 

802  TI (J)=T2  1025 

GO  TO  810  1026 

803  TMJ)zT3  1027 

GO  10  810  1028 

804  TKJI-T4  1029 

GO  TO  810  1030 

805  T1(J)«I5  1031 

8 10  COM  INUE  1032 

OENSC 11=0.00  1033 

0ENS1  I I )>l .000  1034 

OELTAT«( TI (21-T I( I ) 1/10.000  1035 

00  890  J»2. 10  1036 


TxTMil  ♦ OfLUAJ ( J-l ) 40LLTAT  10J7 

Ktl-1  1038 

L10=ll  1039 

FOT =0*00  1040 

815  K1 1«K1 141  1041 

lFiKll.dt.12)  GO  TO  685  1042 

T 0 IF  1 0 = T — CDF IJ11.K11)  1043 

IFITOIFIO.GE.COFI J10.I2I1  GO  TO  817  1044 

816  IF! TDIFIO.GT.COFI J10.L1011  GO  TO  818  1045 

L 1 0=L 1 0— 1 1046 

1F<  1-1.101816.816.885  1047 

817  F 10= 1 .00  1048 

GO  TC  820  1049 

818  IF  IL10.NE.  11  GO  TO  791  1050 

TlxC0FIJ10.il  1051 

T 2=CDF  ( J 1 0 . 21  1052 

T3*CDF 1 J10.J1  1063 

YIxO.DO  1054 

V2x0.05D0  1055 

Y 3x0 • 1 500  1056 

GO  TO  7 92  1057 

791  TlxCCFlJlO.HO)  1058 

T 2 -CDF 1J1C.L10411  1059 

T3=CCF( J10.L10-1 1 1060 

VIxAlLIO)  1061 

V2x A 1 L 1 0 4 1 1 1062 

V3* A <L 1 0— 1 1 1063 

792  F 1 0 = T Eft POL 1 Y l » Y2 . V3.  TOIFIO.  Tl.  12.  T31  1064 

IFiFlO.LT.O.OOlFlOxO.OO  1065 

IFIF10.GT. 1.001  FlOxl.OO  1066 

820  KI*1  1 06  7 

F0T3x0.00  1068 

L 1 x 1 1 1069 

821  KIxk141  1070 

1F1KI.LT. 121  GO  TO  823  1071 

822  FCTxFCT4F10*FOT3  1072 

GC  TO  815  1073 

823  TOIF IxT-COFt I ,KI 1 1074 

IFIT0IF1.GE.C0F1J1.121I  GO  TO  82S  1075 

824  1F1T0IFI . GT.COF I J 1 . L 1 1 1 GO  TO  826  1076 

L 1 =L 1—1  1077 

1F1I-L11824.824.822  1078 

825  F lx  1 .CO  1079 

GO  TO  830  1080 

826  IF  1 L 1 .NE.  II  GO  TO  893  1081 

TlxCOFtJl.il  1082 

T 2 = CDF I J 1 .2 1 1083 

T 3 = C OF  1 J 1 .31  1084 

VlxO.DO  1085 

Y2«0.0500  1086 

V3x0.1500  1087 

GO  TO  894  1086 

893  T1»CCF1 Jl.Ll 1 1089 

T2«C0F! J1.L14II  1090 

T 3*C0F  tJl.Ll-11  1091 

VIxAtLll  1092 

12* A IL 1 4 1 I 1093 

V3*A 1L 1 — I l 1094 

894  F 1> TEFPOL 1 VI . 12.  YJ.  T0IF1.  Tl.  T2.  T3I  1095 

1FIF1 .LT. 0.001  F l x 0 . 00  1096 

IF  IF I.GT. 1.001  Flx|.O0  1097 
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630  K6- 1 

FC  T2=0.D0 

631  Ke=K6Fl 

1F1K6.LI.12)  GO  TO  8 32 
FCT3=F0T3*F l*FOT2 
GO  TO  b2l 

632  K4=l 

FCT 1=0. DO 
L2=  1 1 
L3=l  1 

633  K4  =K  4 ♦ 1 

IF1K4.GE.12)  GU  TO  640 
T 1 = T— CDF  I J4.K4 ) 

T 2= TO IF 10-CUF1 J6.K8) 

IF  IT 1-T 2 >634 .835.836 
834  T0IF3=T1 
GO  TO  636 

635  T 0 IF  3= 1 2 

636  T0IF2— TO  I F3—C DF ( 1 . K 1 ) 

IF  tTClF2.GE.C0Ft J2. 12)  > GO  TO  638 

637  IF! TC1F2.GT.C0F1 J2.L2)  ) GO  TC  839 
C2=L2- 1 

IFI1-L2)637.8J7.840 
640  F0I2=F0T2*FQTl 
GC  TO  631 
e’6  F2=1.D0 

GO  TO  645 

639  IF  IL2  • NE . 1)  GO  TO  895 
T 1 =CDF IJ2.11 
T2  = C0F  t J 2.2) 

T3=C0F{ J2.3) 

ri-o.oo 

V2-0.0500 
V3-0. 1500 
GO  TO  696 

695  I 1-COF t J2 .L2 ) 

T2=C0Ft J2.L2FI) 

T3-CDF  f J2  ,L2— I ) 

V1=AIL2) 

Y2=A(L2*1  ) 

V3-AtL2- 1 ) 

696  F2=TLFP0C (VI , Y2.  V3.  T0IF2.  Tl,  T2. 
IF  C F 2 .LT.O.OO)  F2  = 0.00 

IF (F2  .GT.1.00)  F2= 1.00 
e4S  IFtTDIFJ. GE. COF (J3.12))  GO  TO  850 
846  IF 1T0IF3.GT .COFt J3.L3 ) ) GO  TO  851 
LJ=L3-l 

IF ( 1-L3 >846.646. 840 

650  F3-1.00 
GO  TO  660 

651  IF  f L 3 .NE.  1)  GO  TO  897 
T1=CDF( J3.1 ) 

T2=CDFt J3.2) 

TJ*COFt  J3.3) 

V1«0.00 
V2=0 • 0500 
V3«0. 1500 
GO  TO  696 

697  T I =COF ( J 3 . L3 ) 

T 2 -COF  ( J3.L3M  ) 

T 3 - C C F t J3.L3-1 ) 


1098 

1099 
1 100 
1 101 
I 102 
I I 03 
I 104 
1 1 05 
1 1 06 
1 107 
I 108 
I 109 
1110 
1 I 1 1 
1112 

1113 

1114 
1 1 15 
1116 

1117 

1118 
1119 
1 120 
112  1 
1 122 
1 123 
1 1 24 
1 125 
1 126 
1127 
I 128 
I 129 
I 1 30 
I 131 
1132 
1 133 
1 134 
1 1 35 
I 136 
I 137 
I 138 

T3 ) 1139 

I 140 
1 141 

1142 

1143 
1 1 44 

1145 

1146 

1147 

1148 
I I 49 
1150 
I 151 
I 152 

1153 

1154 
1 155 
I 1 56 
I 157 
1158 


<J  u u 


I 
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Vl=A<L3) 

1 1 59 

V2«A ( L34  1 1 

1160 

V3=A(L3- 1 > 

1161 

ese 

F3=TERP0HYl  , Y2.  V3,  T0IF3.  Tl,  T2t  13) 

1 162 

IF1F3  .LT. 0.001  F3=0  »O0 

1 1 63 

IF(F3.GT.1.D0>  F3=1.D0 

1 164 

660 

F0T1=F0T1*F34F2 

1 165 

GO  TO  633 

t 166 

665 

OENSi J ) = F0T40.1O-3 

1167 

IFIDENSI Jl.LT.O.DO)  OENS(J)=0.00 

1 168 

IF (0ENS1 JI.GE.l .OO)  GO  TO  860 

I 169 

eoo 

CONTINUE 

1 1 70 

660 

00  881  JJ=J.10 

1171 

OENS (JJ)=1.00 

1 1 72 

eei 

CONTINUE 

1 1 73 

S( J1 ,2)=S( 1.2) 

1 1 74 

CALL  1NVSTH1 Jl.OELTAT) 

1 1 75 

RETURN 

1 l 76 

END 

1 1 77 

SUBROUTINE  4 JREQ ( I . J 1 . J2 < J3  « J4  ) 

l 1 78 

IMPLICIT  REAL  *8  < A— H > 0-H  « T — Z ) 

1 1 79 

COMMON  /BLKA/S.CDF. A. OENS. TI 

1 160 

INTEGER  S 

1 181 

DIMENSION  S( 1000*4) .COF I 1000 .12) .A( 12) ,OENS( 400 ) . Tl(2) 

1182 

4 4 4 4 4 • * 

• • * 

♦ 

1 1 83 

1 164 

1 1 85 

00  910  J= 1.2 

1 1 86 

L*  14 ( J- 1)411 

1167 

T 1 *COF ( I .LI4C0FI Jl.L) 

1 1 68 

T2»C  OF ( I .LI4COF1 J2.L  ) 4C0F < J4.L ) 

1 1 69 

T3=COF( J3.L)»C0F< J4.L ) 

1 1 90 

1FITI-T2)  901.901.902 

1191 

90  1 

IF1T2-T3)  903.903.904 

1192 

902 

IF (T1-T3 >903.903.905 

1 193 

903 

Tl  < J)  = T3 

1 194 

GO  TO  910 

1 195 

904 

TI  ( J)  = T2 

1190 

GO  TO  910 

1 197 

905 

Til  J)=T1 

1198 

910 

CONTINUE 

1 199 

OENSI  1 )=0.00 

1200 

OENS ( 1 1 >=1.000 

1201 

DELTA I=(T1(2>  — Till)  )/ 10.000 

1202 

OO  990  J=2. 10 

1203 

T=TI ( 1 ) 40FL0 AT ( J— 1 ) 40ELTAT 

1204 

K4=l 

1200 

FCT-O.CO 

1206 

L3=l  1 

1207 

915 

K4«K441 

1206 

IFOC4.GE.12)  GO  TO  965 

12  09 

T 0 IF  3=  T— CDF ( J4 . K4  ) 

1210 

IF ( TO  IF 3.GE.L0FI J3. 1 2 ) ) GO  TO  918 

12  11 

916 

IF ( TOIF3.GT.COF1 J3.L3))  GO  TO  917 

1212 

L3-L3-1 

1213 

I F ( 1-L3) 9 16.916. 985 

1214 

1215 

1216 

1217 

4 4 4 4 4 4 4 

III 

* 

1216 

917 

IF  (L3  .NE.  1)  GO  TO  951 

1219 

n n 
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T I = CCF ( J J • l I 1220 

T2=C0F 1 J3.2)  1221 

T3*CCF(J3.3!  1222 

Vl=0.00  1223 

Y2  = 0 • 0500  1224 

V3=0.1500  1225 

00  TO  952  1226 

051  T 1 = CDF( J3.L3 ) 1227 

T2=C0F ( J3.LJ+1 1 1226 

T3*C0F< J3.L3-1 I 1220 

Y 1 = A ( L 3 1 1230 

Y2eA(L3f1I  1231 

Y3=*(L3-1)  1232 

052  F 3- TEFPOL ( Y 1 . V2.  Y3.  T0IF3.  T1 . T2 . T3)  1233 

IF1F3  .LT.O.OO)  F3-0.00  1234 

IF (F3.0T . 1 .001  F3-1.00  1235 

C4444444444*  1236 

C 1237 

C 1238 

C 1239 

CC  TO  920  1240 

916  F 3= 1 .DO  1241 

920  KI-1  1242 

FGT1  — 0.00  1243 

L 2=11  1244 

Ll-11  1245 

021  KI-KIF1  1246 

1F1K1.LT. 121  GO  TO  925  1247 

022  FOT=FOT»FOT 1*F3  1248 

GC  TO  915  1240 

925  T01F2=TDIF3-CDF< I.KI ) 1250 

T 0 I F 1 = T— CCF 1 1 • K I ) 1251 

IF ( TC1F2.GL .CDF ( J2. 12 ) ) GOTO  926  1252 

926  IF ( I01F2.GT .COFC J2.L2 I I GC  TO  927  1253 

L2-L2-1  1254 

1F( 1-L21 926. 026. 922  1255 

C 1256 

1257 

1258 

C44444444444  1250 

927  IF  1 L2  .ME.  1 1 GO  TO  961  1260 

T 1 = CCF 1 J2 . 1 I 1261 

T2*CDF(J2.21  1262 

T 3— CDF  1 J2  « 3 I 1263 

Y 1 - 0 • CO  1264 

Y2*G. 0500  1265 

V3®  0 • 15D0  1266 

GO  TO  062  1267 

961  T 1*C0F( J2.L2J  1268 

T2-C0F1 J2.L2FI 1 1269 

T3=C0F< J2.L2-) > 1270 

Y l = A ( L2 I 1271 

V2*A(L2FI)  1272 

Y3=A(L2-11  1273 

962  F2= TEUP0L1Y1.  Y2 , Y3.  T0IF2.  Tl.  T2 . T3)  1274 

IF(F2  .LT.O.OO!  F2-0.D0  1275 

IF1F2  .GT.I.OO)  F2S 1 • DO  1276 

C ••••••••♦••  1277 

C 1278 

C 1279 

C 1280 
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ca  TO  930  1261 

92 8 F2-1.00  1202 

930  1F( T01F1 .GE.COF( Jl. 121)  GO  TO  933  1283 

931  1F(T0IF1.GT.L0F(  J1.L11)  GO  TO  932  1264 

L1*L1-1  1265 

IF( 1-LI 1931.931 .922  1266 

C 1267 

C 1268 

C 1269 

C66666666666  1290 

932  IF  (LI  .NE.  11  GO  TO  971  1291 

TI*C0F(J1.1)  1292 

T2*CDF ( Jl .2 1 1293 

T3*CDF ( Jl .3 1 1294 

YlsO.CO  1295 

V2»0. 0500  1296 

V3“0  « 1 500  1297 

GO  TO  972  1296 

971  TI*CDF(J1.L1)  1299 

T 2-COF (J1.L1+1)  1300 

T3*CDF( Jl .Ll-1  I 1301 

Y1~A(L1)  1302 

V2»A(LI+1)  1303 

V3*A (L l— l I 1304 

972  Fl*TERPOL(Vl . V2.  Y3.  T0IF1.  Tl.  T2.  T31  1305 

1F(F  l.LT. 0.001  F 1*0.00  1306 

IFiFl.CT. 1.001  Fl-1.00  1307 

C66A46AA6AAA  130e 

C 1309 

C 1310 

C 1311 

CO  TO  940  1312 

933  F 1* 1 .00  1313 

940  FCT1*FCT1»F14F2  1314 

GO  TO  921  1315 

989  OEKS ( J! :>FGT4 0.  10—1  1316 

990  CONTINUE  1317 

S(J1.2)-S(I.21  1316 

CALL  INVSTRI J1.DELTAT1  1319 

RETURN  1320 

ENO  1321 

FUNCTION  TERPOL (X1.X2.X3.Y.Y1.Y2. V3 1 1322 

IMPLICIT  REAL*6( A-H.0-21  1323 

TERP0L«X1  ♦ I ( X2— X 1 1 •( Y— V 1 1/ ( Y2— VI 1 1 ♦ ( I X3-X2 1 / ( Y3-V2 I- ( X2-XI 1 / 1324 

• IV 2— V 1 1 1 4 ( ( V— VI 1 •( V— V2 1 / ( V3— Y 1 I 1 1325 

RETURN  1326 

ENO  1327 

SL6ROUT 1NE  INVSTRI I .OELTAT1  1328 

1329 

COF  INVERSE  STORAGE  ROUTINE  1330 

1331 

IMPLICIT  REAL46IA-H.0-R.T-Z I 1332 

COMMON  /6LKA/S.COF. A.OENS.TI  1333 

INTEGER  S 1334 

OIMENSION  $(1000.41 .COF ( 1000. 121. A(12l. DENS! 400} . Tl ( 2 1 1335 

TEMPO-TKI)  1336 

M I N* I 1337 

00  2263  IA«2.10  1336 

IF  (CENSI IA1.GE. 1.00)  GO  TO  2273  1339 

IF  ( OENSI I Al . GT .0.00 1 GO  TO  2263  1340 

M IN"  I A 1341 
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TUI  ) * TE  MPOfOF  LOAT  ( IA-1  ) *OEL  T AT 

1 342 

2263 

CONTINUE 

1343 

MAX* 1 1 

1344 

CO  TO  251 

1345 

2273 

MAX* 1 A 

1346 

TI  (2  > = TEMPOFDFLOAT( I A- 1 ) * 0 EL  TAT 

1347 

251 

DENS(MIN)*0.00 

1348 

OENSI MAX  1*1.00 

1349 

JA  = 0 

1350 

Lb  2263  KA*MI N. MAX 

1351 

JA= JAF 1 

1352 

OENSI JA)*OENS(KA i 

1353 

22  C 3 

CONTINUE 

1354 

00  2293  LAsJA.il 

1 355 

229  3 

OENS<LA)*1.00 

1356 

252 

K*  1 

1357 

CCF I 1 . 1 )*TII 1 1 

1356 

COM  I . 12  ) *T  1(2) 

1359 

OC  260  M*2 • 6 

1360 

255 

1F(A(M).GT • DtNS ( K1.AN0.AIMI.LE.0E NS (Kill  1 

GO 

TO 

256 

1 J61 

K*K  F 1 

1 362 

CO  TO  255 

1363 

256 

v=aimi 

1 364 

257 

Y1*0ENS<K) 

1 365 

V2=DENS(KF1) 

1 366 

V 3=0ENS  ( K F2 1 

1367 

T 1*T 1(1)  ♦ 0FL0AT1K-1 1 FOELTAT 

1366 

0 1 * V2—  V 1 

1 369 

D2*Y3-V2 

1370 

03*Y  3— Y 1 

1371 

0 Y 1 = Y— Y 1 

1372 

0 Y2  = V — V2 

1373 

CTEMP  *TIF( OY1*OELTAT/Ol )F(DV1 40Y2 4DEL T AT* ( 01 - 

021/(01 *02*03) 1 

1374 

IF (CTEMP.LT.T 1 )CTEMP*T 1 

1375 

IMCTEMP.GT.T1  *2  *OEL  T A T ) C TEMP*  TIF2*DELTAT 

1376 

260 

CCF ( I .M»*CTEMP 

1377 

00  270  M=7 .11 

1378 

265 

IF  1 A( M) .GT.OENS(K) .AN0.A(M).LE.0EN5( KF 1 ) ) 

GO 

TO 

266 

1379 

K*KF  1 

1360 

GO  TO  265 

1381 

266 

V* A ( M ) 

1382 

Y t*OENS I KF  1 1 

1383 

Y2*DENS(KI 

1384 

V3*0ENS I K— 1 1 

1 385 

11=11(11  F UFLUATIK >*OELTAT 

1366 

0l«Y2-Vl 

1387 

02=Y3-Y2 

1 366 

0J*V3-V1 

1389 

0 Y I * V—  Y 1 

1390 

0Y2*V-Y2 

1391 

CTEMP  *T1  — I OY l*OELTAT/01 1 - I DV 1 *CY2 *OELT AT* I C I- 

021/(01*02403) 1 

1392 

IFICTEMP.LT. T1  1C  TEMP*  T I 

1 393 

IF (CTEMP.GT .T 1 F2F0ELTAT 1C TEMP* T 1 F2*0ELT  AT 

1394 

270 

CDF ( I.Ml-CTEMP 

1395 

RETURN 

1396 

ENO 

1397 

SUBROUTINE  XOENSIMM, 1 .1500. J200) 

1398 

IMPLICIT  REALF8IA  O-R.T-2) 

1399 

COMMON  /BLK6/TIME.. 

1400 

DIMENSION  TIMEI41. ,i 12) 

1401 

GO  TO  (30*31 .50.60) .MM 

1402 
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50  CALL  XRECT  1403 

00  TO  70  1404 

60  DO  61  M*l,12  140b 

61  V(M)*TIME(1)  140b 

TIME(3I*0.00  1407 

GO  TO  70  140B 

31  IF ( 1 1 ME (41) 32 • 32  • 33  1409 

32  TIMEC3)*(TIME(3)-TIME( 1 ) 1/6.0  1410 

33  TIME(1)*TIME(2>  1411 

34  CALL  NORMAL! J2001  1412 

OC  TO  70  1413 

30  CALL  XBETAC (500 ) 1414 

70  CONTINUE  1415 

RETURN  1416 

CNO  1417 

SUBROUTINE  XRECT  1416 

C SUBROUTINE  TO  CALCULATE  THE  INVERSE  FUNCTION  OF  A RECTANGULAR  OIST  1419 

C CALLING  ARGUMENTS  1420 

C A IS  THE  MINIMUM  VALUE  CF  THE  VARIABLE  1421 

C B IS  THE  MAXIMUM  VALUE  OF  THE  VARIABLE  1422 

C V IS  THE  ARRAY  OF  THE  INVERSE  FUNCTION  OF  THE  DISTRIBUTION  1423 

C THE  MEAN  IS  RETURNED  IN  A 1424 

C THE  STANOARO  0EVIAT10N  IS  RETURNED  IN  8 1425 

C 1426 

IMPLICIT  REAL  48 ( A— H • 0—2 ) 1427 

COMMON  /6LKB/T IME.Y  1428 

DIMENSION  T I ME (4).Y( 12)  1429 

A*T I ME ( 1 ) 1430 

B*TINE(3)  1431 

DELTA* I T 1 ME ( 3 1— T I ME ( 1)1/ 10. DO  1432 

V ( 1 ) * A 1433 

V ( 12)=8  1434 

V(2)*YC1 ) +OELT  A4  0.SD0  1435 

DO  10  J*3. 1 1 1436 

10  Y ( J ) * Y I J— 1 ) ♦DELTA  1437 

XMU=(A*B)/2.00  1438 

SIGMA*(B-A)/3. 464100  1439 

T 1 ME ( 1 ) *XMU  1440 

T I ME ( 3) *S IGMA  1441 

RETURN  1442 

END  1443 

SUBROUTINE  XBETAC IG)  1444 

IMPLICIT  REAL*8< A-H.O-Z)  1445 

COMMON  /BLKB/T I ME • Y 1446 

DIMENSION  T I MEC  4 ) . Y I 12 ) 1447 

TERP  < XI ,X2. V, Y1.Y2)*X1*C (X2-X1 )*( Y-Yl >/(Y2-Vl 1 1 1448 

C TERP  IS  A ARITHMETIC  STATEMENT  FUNCTION  TO  OO  LINEAR  INTERPOLATION.  1449 

C IF  X IS  THE  VALUE  REOUIREO  WHICH  LIES  BETWEEN  THE  VALUES  OF  XI  ANO  X2  1450 

C IN  A TABLE  ANO  Y1  ANO  Y2  ARE  THECORRESPOND I NG  VALUES  WITH  Y THE  VALUE  1451 

C CORRESPONDING  TO  THE  VALUE  OF  X RECUIREO.  1452 

C SUB  PROGRAM  TO  CALCULATE  THE  CUMULATIVE  INVERSE  FUNCTION  OF  THE  BETA  1453 

C DENSITY  FUNCTION  1454 

C ' 1455 

C 1456 

C CALLING  ARGUMENTS.  14S7 

C 1.  BETA  0 BETA  OF  THE  DENSITY  IF  KNOWN.  ENTER  -I  IF  IT  IS  1458 

C 0ES1RE0  TO  CALCULATE  THESE  POINTS  BASEO  ON  THE  THREE  PERT  1459 

C TIME  ESTIMATES  XSEE  SUBROUTINE  ALBETC.  1460 

C 2.  A 0 MINIMUM  TIME  ESTIMATE.  1461 

C 3.  XM  0 ALPHA  OF  THE  DENSITY  OR  THE  MCST  LIKLEY  TIME  ESTIMATE.  1462 

C 4.  B • MAXIMUM  TIME  ESTIMATE.  1463 


r>  r n n n n 
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5-  IG  « SEE  GAMMA  SUBROUTINE.  1*6* 

6.  Y » ARRAY  101  X 1 IN  1H 1C  H THE  VALUES  ARE  CALCULATED  1465 

7.  SIGMA  IS  THE  STAN0AR0  0EV1AT10N  OF  THE  DENSITY  1466 

THE  MEAN  OF  THE  DENSITY  IS  PET  UR  NED  IN  A.  1467 

THE  STANDARD  DEVIATION  OF  THE  DENSITY  IS  RETURNED  IN  TIMEX3<  1466 

14  69 

A*  T I ME ( 1 ) 1470 

ALPHA*TIME(2)  1471 

B*T I ME  13  1 1472 

BE T A*T I ME  I 4 J 1473 

VU)*A  1474 

V(12)=B  1475 

IB  F ALPHA  = ALPHA* 1 aOO  1476 

XM= ALPHA  1477 

FBETA=BETA  ♦ 1.00  1478 

SUM  = ALPHA  ♦ BETA  ♦ l.DO  1479 

F SUM*  SUM  ♦ l.DO  1480 

SIGMA=(FALPHA*FaETA*(B-A>**2)/<<  ( FSUM  ) ••  2 ) * ( FSUM4 1 . DO  > ) 1481 

SIGMA=DSQRT (SIGMA ) 1482 

U = 1<A*FBETA)4<B4FALPHA))/FSUM  1403 

CALL  GAMMA  (F  ALPHA  t IG)  1484 

CALL  GAMMA  (FBETA.1G1  1485 

CALL  GAMMA  (FSUM.IG)  I486 

C«B-A  1487 

81=0.00  1488 

DELT AT=C/250D0  1489 

T 3=0 . CO  1490 

FT=O.DO  1491 

CONST*OLCG(FSUM)-OLOG< F ALPHA ) — OL  OGIF0ETA1— < SUM*DLOGI C ) ) 1492 

23=0. DO  1493 

K*0  1494 

DO  50  J=2.20.2  1495 

O^OFLOAri 3-11/20.0  1496 

49  Tl=T3  1497 

K = K41  1498 

X = K 1499 

XX=K«2  1500 

A T = B T 1501 

T3=X*CELTAT  1502 

T2=( XX- l.00)*T3/XX  1503 

2 1=23  1504 

22  = CCNST ♦DLOG (4.00)41  ALPHA* DLOG 1 T2 1) ♦ I BET A*DLCG( C-T2 ) > 1505 

22=0EXP(22)  1506 

23  = C0NSTM ALPHA* DLOG ( T3) 1 4 I BET A* OLOG < C-T 3 1 ) 1507 

23=DEXP(23)  1508 

FT=FT*2l*22«-23  1509 

BT=FT*OELTAT/6.DO  1510 

IF (UT .GT. 1.00)  BT* 1 .DO  1511 

IF(D.GT.AT.AND.D.LE.BT)  GO  TO  SI  1512 

GO  TO  49  1513 

51  NJ=lJ/2)4l  1514 

YCNJ)*TERP  (T1.T3.D.AT.BT)  4 VII)  ISIS 

SO  CONTINUE  1516 

T I ME I 1 I = U 1517 

TIMEI2MALPHA  ISIS 

T1ME(3)=SIGMA  1519 

T 1 ME (4)=BETA  1520 

RETURN  1521 

END  1522 

SUBROUTINE  GAMMA  (X.M)  1523 

C 1524 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


SUBROUTINE  TO  COMPOTE  THE  GAMMA  FUNCTION  XSINGCE  PRECISIONC 
CALLING  ARGUMENTS 

X IS  THE  NUMBER  OF  MHICH  THE  GAMMA  IS  TO  BE  COMPUTED 
X IS  A FLOATING  NUMBER 
M IS  AN  INTEGER  NUMBER 
M IS  DEFINED  AS  FOLLOWS 


SUBROUTINE  NORMAL! J2  I 

SUBROUTINE  TO  CALCULATE  THE  INVERSE  FUNCTION  OF  THE  NORMAL  OISTRIB. 
CALLING  ARGUMENTS. 


1.  V IS  A FLOATING  POINT  ARRAY  FOR  OUTPUT  OF  THE  CUMULATIVE 
FUNCTION. 

2.  U IS  THE  MEAN  OF  THE  OENSITY. 

3.  SIGMA  IS  THE  STANOARO  OEVIATICN  OF  THE  DENSITY. 


INVERS 


1525 

1526 

1527 
1523 

1529 

1530 

1531 

1532 


M MUST 

BE  2 ERO  THE  FIRST  TIME  THE  SUBROUTINE  IS  CALLE 

1533 

1 534 

IMPLICIT  REAL*6(A-H 

.O-R.T-21 

1535 

OIMCNSION  2 1 1 B ) 

1 536 

IFIM)  1.  1.  2 

153  7 

1 

B*1.D0 

1538 

0*2.00 

1 539 

M*  1 

1 540 

2!  11*  1.0000000000 

00 

1 64  1 

2!  21*  .5772156640 

00 

1 542 

2!  3)*-  .6556  7 60  710 

00 

1 543 

2!  4)*—  • C4  2 0 02  6550 

00 

1 544 

2!  51*  .1665366110 

00 

1545 

21  6)*-  .0421977340 

00 

1 546 

2!  71*-  .0096219710 

CO 

1547 

2!  61*  .0072169430 

00 

1546 

2!  91*-  .0011651670 

00 

1549 

21101*-  .0002152410 

00 

1 550 

2(111*  .0001260500 

00 

1551 

2(121*-  .0000201340 

00 

1552 

2(131*-  .0000012500 

00 

1 553 

2(141*  .0000011330 

00 

1 554 

2(151*-  .00 00002 050 

00 

1 555 

2(161*  .0000000060 

00 

1 556 

2(171*  .0000000050 

oc  ' 

1557 

2(181=-  .OCOOOOOOID 

00 

1568 

2 

C* 1 .CO 

1559 

3 

IF ( X 1 99.99.  4 

1560 

4 

I F ( X— B 1 7.  6.  5 

1561 

5 

I F ( D-X 1 6.  6.  9 

1562 

6 

G* 1 .00 

1563 

GG  TO  11 

1564 

7 

C*C*B/X 

156  5 

x*x»e 

1566 

GO  TO  3 

1567 

6 

X*X-8 

1 56  6 

C*C4X 

, 1569 

GC  TC  3 

1570 

9 

E=0 • DO 

1571 

00  10  1*1.18 

1572 

T*  I 

1573 

10 

E*  E* ( 2 ( I l*(X«4T 1 1 

1574 

G*B/E 

1575 

I 1 

X*C  * G 

15  76 

99 

RETURN 

1577 

ENO 

1576 

1579 

1560 

1561 
1592 
1563 
1587 
1565 
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l 

c 4.  z is  the  array  in  which  the  values  op  t«e  function  awe  calculat  i 586 

C S.  J2  IS  A DUMMY  VARIABLE  WHICH  MUST  BE  O OR  1 THE  FIRST  TIME  THE  1587 

C IS  CALLEO  UR  ANYTIME  THE  l ARRAY  IS  USED  AGAIN  BY  THE  MAIN  1568 

C PROGRAM.  wmcN  J2  IS  MINUS  THE  2 TABLE  IS  NOT  RECALCULATED  1589 

C THE  PROGRAM  RETURNS  VALUES  OF  Y FOR  THE  FUNCTION  1590 

C T I U (2  • SIGMA  FOR  VALUES  OF  FXY<« . 0 1 . . 02.  .....99.  .1.0.  159  1 

C YXK  WILL  CONTAIN  U - 3 STANOARO  OE V I A T I ONS . TF  G OR.O  IF  -.  NEGATIVE  1592 

C VALUES  OF  Y ARE  NOT  CALCULATED.  YX  22 < WILL  CONTAIN  U G 3 STANOARO  1593 

C DEVIATIONS.  1594 

IMPLICIT  REALW8I A-H.O-/1  1595 

COMMON  /BLKB/f IME.Y  1596 

DIMENSION  TIME! 41 .VI 121  1597 

DIMENSION  2110)  1598 

U—  T I ME  I 2 ) 1599 

SIGMA*T IMEI3)  1600 

IF  <J2>  5.10.10  1601 

10  J2*  — 1 1602 

Z<  1 )*- 1 .6449300  1603 

Z<2)*-1. 0364500  1604 

Z(3l*-0. 6744900  1605 

2 ( 4 ) =-0 . 3053200  1606 

2(5)— — 0.  12566D0  1607 

2 ( 61*0.1256600  1608 

2 ( 7 ) *0.3853200  1609 

2 ( 8)*0. 6744900  1610 

2 ( 9 )* 1.0364600  1611 

2(  10  I* I .6449300  1612 

5 TZERO=U-< J.004SIGMA)  1613 

IF  (T2ER0)  1.2.2  1614 

I V(1)=O.DO  1615 

GO  TO  8 1616 

2 Y ( 1 ) * T 2 E RO  1617 

B OO  9 1=2. I 1 1618 

Y( 1 1*24 1-1 )»SIGMA4U  1619 

IF  (VII))  6.6.9  1620 

6 Y I I ) = 0.D0  162  I 

9 CONTINUE  1622 

V(  12)*U»3.D0*SIGMA  1623 

RETURN  1624 

ENO  1 625 

SUBROUTINE  RD(J.A.N)  1626 

DIMENSION  AIN)  1627 

RE  AO  I J 1 A 1628 

RETURN  1629 

END  1630 


4 
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6.  DECOMP 

C DECOMPOSITION  PROGRAM  I 
C 2 
C UfcCCMF  IDENTIFIES  PARALLEL  SUBNET  WORKS  AND  SERIES  SUBNETWORKS  3 
C 4 
C 5 
C THE  FOLLOWING  IS  AN  ALPHABETICAL  LISTING  OF  THE  VARIABLES  AND  6 
C ARRAYS  THAT  ARE  USED  IN  THIS  MAIN  PROGRAM  AND  ITS  SUBROUTINES  7 
C 8 
C 9 
C ARCS  = THE  NUMBER  OF  ARCS  IN  THE  SUBNETWORK  10 
C BDNUM I I ) * THE  BUNDLE  NUMBER  TO  WHICH  NODE  I IS  ASSIGNEO  II 
C CARC  * AN  ARRAY  PUNCHEO  FOR  USE  IN  PROGRAM!  SYNTHESIS  12 
C CHECK  = ARRAY  USED  TC  STORE  ARCS  HAVING  THE  SOURCE  AND  THE  13 
C SINK  AS  THEIR  ONLY  NODES  14 
C CTNSUB  = THE  TEMPORARY  NUMBER  OF  SUBNETWORKS  FOUNO  IN  THE  15 
C PREVIOUS  STEP  16 
C HE AO ( I ) -T  EH MI NA  TING  NODE  FOR  ARC  I IN  THE  RENUMBERED  SUBNETWORK  17 
C INSIN  = THE  CURRENT  INSTRUCTION  NUMBER.  PUNCHED  FCR  SYNTHESIS  IB 
C LNCDEN  = THE  LARGEST  NODE  NUMBER  BEING  READ  IN  19 
C MAXND  = THE  LARGEST  NODE  NUMBER  THAT  HAS  ALREAOY  BEEN  ASSIGNED  20 
C AT  LEAST  TEMPORARILY  TO  A BUNDLE  21 
C NARCSSIl)  = THE  NUMBER  OF  ARCS  IN  SUBNETWORK  I 22 
C NODES=TEMPURARY  ARRAY  USED  TO  OROER  THE  NCDE  NUMBERS  IN  A SUB  23 
C NSUB  = THE  TOTAL  OF  SUBNETWORKS  THUS  FAR  24 
C N T ARC  - THE  NUMBER  OF  ARCS  IN  THIS  SUBNETWORK  25 
C NUMBD  ^ THE  NUMBER  OF  BUNDLES  CREATEO  26 
C NUMSOB=NUMBtR  OF  MINIMUM  SUBNETWORKS  IDENTIFIED  27 
C PPOST  = ARRAY  OF  PAST  POSTS  USED  IN  CUT  SUBROUTINE  28 
C Sill  * THE  STARTING  NOOE  FCR  ARC  I 29 
C SINK  = THE  NODE  NUMBER  CORRESPONDING  TO  THE  SINK  30 
C SINKS! I I = THE  SINK  IN  SUBNETWORK  1 31 
C SOUR C I 1 1 = SOURCE  NODE  IN  SUBNETWORK  I 32 
C SOURCE  = THE  NODE  NUMBER  CORRESPONDING  TO  THE  SOURCE  33 
C STEP  = S I AGE  NUMBER  3« 
C SUBNET ( I . J > - THE  ITH  ARC  IN  THE  JTH  SUBNETWORK  35 
C SUMARC  * THE  CURRENT  NUMBER  OF  ARCS  IN  SUBNETWORK  NSUB  36 
C Till  * THE  TERMINATING  NODE  FOR  ARC  I 37 
C TAIL! I )=ST ART ING  NOOE  FCR  ARC  I IN  THE  RENUMBERED  SUBNETWORK  38 
C TARC  » THE  SUBNETWORK  WITHOUT  THE  ARCS  INVOLVING  NODE  K 39 
C TLNCEN  * TEMPORARY  LARGEST  NOOE  NUMBER  40 
C TNSUB  = THE  NUMBER  OF  SUBNETWORKS  CREATED  IN  THE  CURRENT  STAGE  41 
C TSNSUB  * THE  TEMPORARY  SUBNETWORK  BEING  USED  IN  STAGE  42 
C SUUROUTINE  43 
C TSUBN  » THE  NUMbER  OF  THE  SUBNETWORK  CURRENTLY  BEING  CONSIDERED  44 
C TYPESN  = THE  TYPE  UF  SUBNETWORK  BEING  CONSIDERED!  45 
C I « bUNDLE  SUBNETWORK  2 * CUT  SUBNETWORK  46 
C *7 
C A NGN— DECOMPOSABLE  SUBNETWORK  IS  ONE  THAT  IS  NOT  COMPOSED  OF  48 
C SMALLER  SUBNETWORKS  WHICH  ARE  CONNECTED  IN  EITHER  SERIES  OF  49 
C PARALLEL  SO 
C 51 
C 52 
C FOR  THE  SAKE  OF  IDENTIFYING  THE  APPROPRIATE  DIMENSIONS.  LET  53 
C MM AX  ■ THE  MAXIMUM  NUMBER  OF  ACTIVITIES  IN  THE  ORIGINAL  54 
C PROJECT  NETWORK  SS 
C MSMAX  » THE  MAXIMUM  NUMBER  OF  ACTIVITIES  ALLOWED  IN  ANY  ONE  56 
C SUBNETWORK  57 
C NSUBMAX  = THE  MAXIMUM  NUMBER  OF  SUBNETWORKS  ALLOWED  IN  THE  58 
C DECUMPDS I T I ON  PROCESS  59 
C NC1NSMAX  * THE  MAXIMUM  NUMBER  OF  INSTRUCTIONS  GENERATED  BY  THE  60 
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C UECOMPOSI T ION  PROCESS  61 

C CURRENTLY • MM«X<IOOOi  MSMAX”500I  NSUHMAX«IOO;  NOtNSMAX»IOO  62 

C 63 

C OIMENS1CN  SIMMAX ). T( MMAX ). SUBNET (MMAX.NSUUMAX )• SOURC (NSUeMAX) . 64 

C 4 NARCSS(NSUBMAX) .CA RD ( NO  I NS . 27 1 65 

C 66 

C IN  SUBROUTINE  NE T I N THE  ARRAY  DIMENSIONS  ARE  I 67 

C DIMENSION  F ILEJI  JIMMAXfb  ) . IORGI  MMAXI  . I TERM!  MMAX  I .NUMSI  MMAX  I 66 

C EOUlVLAENCE  < F l LE3  ( MMAX  46  > . I ORGI  1 » » . 1 F I LE  3 1 2 4MMAX4-6  > . I TERM!  I > > 69 

C 70 

C IN  SUBROUTINE  UUNOLt  THE  ARRAY  DIMENSIONS  ARE:  71 

C DIMENSION  BUNUMl MMAXI • CHECK ( MM AX ) 72 

C 73 

C IN  SUBROUTINE  cut  the  array  dimensions  are:  74 

C DIMENSION  ORIGIN! MMAX). POST (MMAX)  * T ARC I MMAXI • RC UT (NSUBMAX) • 75 

C • PPOST(MMAX)  76 

C 77 

C IN  SUBROUTINE  PRESUB  THE  ARRAY  DIMENSIONS  ARE:  78 

C DIMENSION  HEAD(MMAX) . TAIL ( MMAX I .NODE (MMAX I ,F ILEJI 34MSMAXE3) . 79 

C • NET (J.MSMAX)  60 

C 81 

IMPLICIT  INTE0ER42  (A-Z»  82 

CLMMGN  SUBNET. S.T. SOURC. SINKS.NARCSS.NSUB.TNSUB  63 

COMMON  /NEW/  CARD. INSTN  64 

COMMON/PREP/  NUMSUO  65 

INTEGER  F 3/ 11/.  F5/13/  86 

INTEGER  CAROC 100.27)  87 

INTEGER *2  Slluuaj.il  1000  I. SUBNET!  1000 . 1 0 0 1 .SOURC ( l 00  I . S I NK S < I 00  I . 86 

•NARCSS(IOO)  89 

MRI TE ( 6 . I 00  I 90 

100  FORM  AT  I 1H1 . 132<  •••  )/l X. I J2 (•*•)/ *OTHIS  IS  THE  OUTPUT  FROM  THE  DECO  91 

4MP0S 1 T I ON  program:  OECUMP*/IHO. 1 321  * • • I /l X, 1 32C • *• I I 92 

REaING  F 3 93 

READ (F  3)  94 

REM  INC  FS  95 

READIES)  96 

C 97 

C INITIALIZE  INSTN  98 

C INSTN  ” THE  CURRENT  INSTRUCTION  NUMOER  99 

C 100 

6000  INSTN^O  101 

C 102 

C INITIALIZE  CARD  103 

C 104 

OC  2220 0 I«l . 100  IOS 

DO  22200  J«1.27  106 

22200  C ARC ( I « J ) ”0  107 

C 10B 

C READ  THE  NETWORK  IN  109 

C 110 

CALI  NE  TIN  (LNODEN)  111 

REWIND  F3  112 

READ ( F 3 ) 113 

STEP”  1 114 

TYPESNol  IIS 

T SUUN= 1 116 

NUMSUB*0  I I 7 

CALL  UUNOLE  I LNODEN . T SUBN 1 118 

C 119 

C PRINT  OUT  THIS  STAGE  OF  THE  BREAKUP  120 

C 121 


/ 
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call  STAGE  (TYPESN. TSULM)  122 

CINSU8*TNSUB  123 

GC  TC  70  124 

1 2 £ 

FINO  THE  NUMBER  OF  NEWLY  CREATED  SUBNETWORKS  126 

127 

C TNSUB=0  128 

TSUBNsNSUB-LOOP  129 

TYPESN-I  130 

00  20  1*1, LOOP  131 

132 

FINO  THE  NEXT  SUBNETWORK  TO  BE  FURTHER  SUBDIVIDED  133 

134 

TSUBN=TSUBN4l  135 

136 

FINC  THE  LARGEST  NOOE  NUMBER  IN  SUBNETWORK  TSUBN  137 

1 38 

CALL  NCDER  ( TLNOEN, TSUBN ) 139 

140 

FINO  THE  BUNDLE  SUBNETWORKS  141 

142 

CALL  BUNGLE  ( TL NOEN . TSUBN I 143 

144 

PRINT  OUT  THIS  STAGE  OF  THE  BREAKUP  145 

146  ' 

CALL  STAGE  ( T YPESN . T SUBN ) 147 

I 48 

IF  THERE  IS  ONLY  ONE  BUNDLE  FCUND  IN  SUBNETWORK  TSUBN,  WE  ARE  149 

FINISHED.  PRINT  OUT  ITS  COMPONENT  ARCS  150 

151 

IF  (TNSUB.EU.l)  CALL  END  SNT  (TSUBN)  152 

153 

COUNT  THE  NEW  NUMBER  OF  SUBNETWORKS  CREATED  1S4 

155 

CTNSUE*TNSUU*CTNSUB  156 

157 

IF  ALL  SUBNETWORKS  ARE  IN  THEIR  SMALLEST  FORM,  WE  ARE  FINISHED  l£e 

159 

IF  (CTNSUB.EO.O)  GO  TO  90  160 

GO  TO  70  161 

LOOP *CTN SUB  ' 162 

CTNSU8*0  163 

TSUBN*N SUB— LOOP  164 

165 

FINO  THE  NUMdER  OF  NEWLY  CREATEO  SUBNETWORKS  166 

167 

TYPESN-2  168 

OC  30  1*1 .LOOP  169 

1 70 

FIND  THE  NEXT  SUBNETWORK  TO  BE  FURTHER  SUBDIVIDED  ‘ 171 

172 

TSOBNxTSUBN*!  173 

IF  (TSUBN. EQ.ll  GO  TO  55  174 

175 

FINO  THE  LARGEST  NOOE  NUMBER  IN  SUBNETWORK  TSUBN  176 

177 

CALL  NGOER  (TLNOEN, TSUBN I 176 

179 

FIND  THE  CUT  SUBNETWORKS  160 

161 

55  IF  (TSUBN.EO.t)  TLNDEN*LNCDE  N 162 
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call  cor  ( T SUSN, TLNDfcN  ) 163 

C 184 

C PRINT  CUT  THIS  STAGE  OF  THE  BREAKUP  185 

C 1 86 

CALL  STAGE  ( I YPESN. TSUBN ) 187 

C 1 88 

C IF  THERE  ARE  NO  CUTS  FOUND  IN  SUBNETWORK  TSUBN.  WE  ARE  FIMSHEO  189 

C PRINT  CUT  ITS  COMPONENT  ARCS  190 

C 191 

IF  (TNSUB.EQ.l)  CALL  ENDSNT  (TSUBN)  192 

C 193 

C COUNT  THE  NEW  NUMBER  OF  SUBNETWORKS  CREATEO  194 

C 195 

30  CTNSUE=TNSUBACTNSUB  196 

C 197 

C IF  ALL  SUBNETWORKS  ARE  IN  THEIR  SMALLEST  FORM,  WE  ARE  FINISHED  198 

C 199 

IF  (CTNSOB.EU.O)  GO  TO  90  200 

GO  TO  70  201 

85  LCOP=CTNSUB  202 

GO  TO  10  203 

70  WRITE  (6.9001  STEP  204 

900  FORMAT  ( 1H1 ,SX, • STAGE* , 1 3. • BREAKUP*)  205 

STEP=STEP*l  206 

C 207 

C LET'S  GO  BACK  TO  THE  APPROPRIATE  LOOP  FOR  THE  NEXT  STAGE  208 

C 209 

GO  TO  (80.85). TTPESN  210 

90  CONTINUE  211 

C 212 

C STORE  INFORMATION  FOR  SYNTHESIS  PROGRAM  213 

C 214 

CALL  PUNSYN  215 

WRI TE (6,700 1 ) NUMSUB  216 

7001  FORMAT ( 1 HO • ' THE  NUMBER  OF  NON—  DECOMPOSABLE  SUBNETWORKS  I 217 

4 S *13)  218 

WRITE  (6.9000)  219 

9000  FORMAT  (1H1I  220 

STOP  221 

ENO  222 

SUBROUTINE  NET  I N ILNCOENI  223 

IMPLICIT  1NTEGER42  (A-Z)  224 

COMMON  SUBNET, S.T.SOURC. SINKS. NARCSS .NSUB .TNSUB  22S 

INTEGER*?  S(  1000) ,T(  1 000  I . SUBNET ( 1 000 . 1 00 ) . SOURC ( 100) .SINKS!  100) • 226 

4NARCSS1 1 00)  227 

INTEGER**  FILE3(3005)  228 

INTEGER*4  I URG ( 1 000 ) . I TERM! 1 000 ) . NUM S (1 000 ) 229 

EQUIVALENCE  (FILES (6). NUMS ( 1)1, !FILE3( 10061.1 ORG (II).  230 

* (F 1LE3I 2006) . I TERM ( 1 ) ) 231 

INTEGER  F 3/1 1 / 232 

REAOIF3)  FILES  233 

C 234 

C ZEROIZE  SOURC  ARRAY  235 

C 236 

00  20  1*1.50  237  / 

20  SOURC ( I ) *0  238 

C 239 

C REAO  IN  THE  INITIAL  NETWORK  LIMITS  240 

C 241 

ARCS  * F ILE3( 1 I 242 

SOURCE  * FILLS! 3)  243  * 
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sink  = FILE3I4)  244 

LN  COt N 2 FILE3(5)  245 

•RITE  (6.200)  246 

200  FCRMAT  ( 1 HO ,5X . • I NPUT  STAGE*  > 24  7 

•RITE  (6.210)  ARCS. SOURCE. SINK. LNODEN  246 

210  FORMAT ( 1H0./6X. *THE  SIMPLIFIED  NETWORK  HAS*  . I 2X . I 4 . • ARCS'. //6X.  249 

• •THE  SOURCt  IS  NUDE  NUMBER * . 1 1 X . I 3 . //6X . • THE  SINK  IS  NODE  NUMBER*.  2E0 

• 13X. I3.//6X. • THE  LARGEST  NODE  IS  NODE  NUMBER • .5X • 13 1 251 

•RITE  (6.220)  252 

220  FGRMAT! IH0.SX.*THE  SIMPLIFIED  NETWORK  AS  READ  IN  ISS*.///6X.  2S3 

••ARC  NUMBER*. SX. *ORIGIN  NOOE * .5X .* TERMINAL  NODE*)  254 

C 255 

C RE AO  IN  EACH  ARC  AND  ITS  STARTING  AND  TERMINATING  NODES  256 

C S » THE  NOOE  NUMBER  FOR  THE  START  OF  AN  ARC  257 

C T = THE  TERMINAL  NODE  OF  AN  ARC  256 

C 259 

DO  10  Jxl.ARCS  260 

I = NUMS ( J ) 261 

S ( I ) = I CRG ( J ) 262 

T(  I >=ITERM(  J)  263 

• RITEC6. 240)1. S(  I ).T(  I ) 264 

240  FORMAT  (1H  .8X.I3.13X. 13. 14X. 13)  26S 

C 266 

C CREATE  THE  FIRST  SUBNETMORK  267 

C 266 

10  SUBNET! J. 1 )=1  269 

SOURC ( 1 ) = SOURCE  270 

S INKS ( 1 ) =S I NK  271 

NARCSS1 1 )=ARCS  272 

NSUB=1  273 

RETURN  274 

ENO  275 

SUBROUTINE  NOOER  ( TLNDEN. TSUBN ) 276 

C 27  7 

C FINOS  LARGEST  NODE  NUMBER  IN  THE  SUBNETWORK  TSUBN  278 

C 279 

IMPLICIT  INTEGERS  (A-Z)  260 

CCMMON  SUBNET. S.T. SOURC, SINKS. NARCSS .NSUB.TNSUB  281 

INTEGER*2  S( 1000) . T(  1 0 00 ). SUBNET ( 1 000 . 1 00 ) . SCURC ( 100 ) .SINKS!  100) . 262 

•NARCSS! 100)  263 

ARCS-NARCSS(TSUBN)  284 

TLNDENxO  285 

DO  20  Js 1 . ARCS  266 

A*SUHNET(J. TSUBN)  287 

M*S ( A ) 288 

N*T ( A ) 269 

MAXNOxN  290 

IF  (M.GT.N)  MAXND-M  291 

IF  (MAXNO.GT. TLNDEN)  TLNOE  N= MAX NO  292 

20  CONTINUE  293 

RETURN  294 

ENO  295 

SUBROUTINE  ENDSNT  (TSUBN)  296 

C 29  7 

C PRINTS  SMALLEST  BREAKDOWN  OF  SUBNETWORK  TSUBN  298 

C 299 

IMPLICIT  INTEGER42  (A-Z)  300 

COMMON  SUBNET. S. T. SUURC .S INKS . NARCSS, NSUB.TNSUB  301 

INTEGER *2  S( I 000) . T(  1 000) . SUBNET ( 1 000 . 1 00 ) . SOUR C ( 1 00 ) .SINKS!  100) . 30  2 

•NARCSS! 100)  303 

SCURCExSOURC! TSUBN)  304 
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SINK*SINKS( TSUUN)  JOS 

WRITE  (6.100)  TSUBN  306 

100  FORMAT  ( 1H0.//1 6X, • SUBNETWORK  ',13.'  IS  A NON-DECOMPOSABLE  NETWORK  307 

• • •/ 1 6X . • 1 T IS  COMPOSED  cf : • ) 3oe 

WRITE  (6.200)  SOURCE. SINK  309 

200  FORMAT  ( IHOilVX. • SOURCE  NODE  * • . 13. //20X, * S INK  NODE  * ».I3)  310 

M=NARCSS( TSUBN ) 311 

WRITE(6.S00)  312 

500  FORMAT! IHO.ISX, 'THE  SUBNETWORK  AS  IT  IS  READ  INI')  313 

WRITE  ( 6 * 400 ) 314 

400  FORMAT  ( 1M0.19X. • ARC* .2X< 'S! ARC1 • .2X. 'T! ARC) • ) 315 

OO  10  I = 1.M  316 

N*SObNET ( 1 , TSUBN)  317 

10  WRITE  (6.300)  N.S(N).T(N)  316 

300  FORMAT  ( IH  . 1 VX . 13 . 3X . 13 . 5X, I 3 I 319 

C 320 

C SET  TNSUb=  0 SO  THAT  THE  REMAINING  NUMBER  CF  SUBNETWORKS  DOESN*  T 321 

C INCLUDE  THIS  MINIMUM  SUBNETWORK  322 

C 323 

1 N SUb  *0  324 

C 32S 

C PREPARE  THE  MINIMUM  SUBNETWORK  FOR  SUBNETWORK  ANALYSIS  326 

C 327 

CALL  PR E SOB ( I SUBN 1 328 

RETURN  329 

ENO  330 

SUBROUTINE  STAGE  ( TYPE  SN . T SUBN ) 331 

332 

PRINTS  OUT  THE  CURRENT  STAGE  CF  BREAKUP  333 

334 

IMPLICIT  1NTLGER42  (A-/)  33S 

COMMON  SUBNET .S. T. SUURC . SINKS. NARCSS .NSUB .TNSUB  336 

INTEGERW2  S( 1000 ) ,T( 1000 1 .SUBNET! 1 00 0 . 1 00 1 . SOURC ( 100 1 .SINKS! 100 1 . 337 

WN ARC  S S ! 100)  336 

COMMON  /NEW/  CARO.iNSTN  339 

INTEGER  CARD( 100.271  340 

341 

TN SUB  = T HE  NUMBER  OF  NEW  SUBNETWORKS  RESULT (NG  FROM  THE  BREAKUP  342 

IN  THIS  SI  AGE  343 

344 

TNSUB*I  IMPLIES  NO  BREAKUP  OCCURRED  IN  THIS  STAGE  345 

346 

IF  (TNSUB.EG.il  GO  TO  600  347 

WRITE  (6.100)  T SUBN  348 

00  FORMAT  ( 1H0 ,/6X. 'SUBNETWORK  ',13.'  IS  COMPOSED  OF  SUBNETWORKS)  •)  349 

ISNSOB*NSUB-TNSUB  350 

M*  T SNSUB4 1 351 

WRITE  (6.300)(S . I*M.NSUB)  352 

00  FORMAT  (£H0.SX. 13.20! 13) 1 353 

, 354 

PREPARE  INFORMATION  FOR  SYNTHESIS  PROGRAM  355 

' 356 

INSTN*IrySTNM  357 

ISORP=Or  358 

IF ( T YPE  SN. EG. 1 ) ISORP*l  359 

CARO! INSTN. I )*INSTN  360 

CARO! INSTN.2) *TSUBN  361 

CARO! INSTN, J)*1S0RP  362 

OO  2250  1 *M, NSUB  363 

K*I-MW4  364 

2250  CARO! INSTN. K)*I  365 
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IF  ( TYPLSN.EQ. 1 ) GO  TC  60 

366 

•RITE  (6.400) 

367 

400 

FORMAT  (IHO.SX.'lN  SERIES') 

368 

GO  TO  600 

369 

60 

•RITE  (6.500) 

370 

soo 

FORMAT  (lHO.SX.'IN  PARALLEL* > 

371 

600 

RETURN 

372 

END 

373 

SUBROUTINE  BUNDLE  ( LNODEN , TSUBN ) 

3 74 

c 

375 

c 

BUNDLE  IOLNTIFIES  PARALLEL  SUBNETWORKS  CONNECTING  OESIGNATEO 

3 76 

c 

SOURCE  AND  SINK 

377 

c 

378 

IMPLICIT  INTEGER*^  (A-Z) 

379 

COMMON  SUBNET .S. T.SOURC. SINKS. NARCSS .NSUB.TNSUB 

380 

INTEGER *2  5(  1000)  . T(  1 0 00 ) . SUBNE T ( I 000 . 1 0 0 ) . SCURC ( I 00 ) .SINKS! 100) . 

381 

4NARCSS ( 100) 

382 

1MEGER42  BONUM(IOOO)  .CHECK!  1000) 

383 

c 

384 

c 

GROUP  NODES  INTO  BUNDLES 

365 

c 

386 

SCURCE*SOURC( TSUBN) 

387 

SINKS SINKS (TSUBN) 

388 

NUM8D*1 

389 

c 

390 

c 

ZEROIZE  THE  BDNUM  ARRAY 

391 

c 

392 

f 

00  10  1*1 .LNODEN 

393 

10 

BONUM ( 1 1*0 

394 

K s SUbRE  T ( 1 .TSUBN) 

395 

M«S(K) 

396 

N*T(K) 

397 

BONUM ( M ) * 1 

398 

BONUM ( N )*  l 

399 

NAXNO*N 

400 

IF  (M.GT.N!  MAX  ND*M 

401 

ARCS* NARCSS (TSUBN) 

4 02 

IF  (ARCS. ED. 1)  GO  TO  515 

403 

DC  1 K* 2, ARCS 

4 04 

I*SUBNET(K. TSUBN) 

405 

BONUM C SOURCE) =0 

406 

BONUM ( SI NK) *0 

407 

M*S(  1 ) 

408 

N*  T ( I ) 

409 

IF ( M.GT .MAXNU)  MAXNO*M 

410 

0 

IF (N.GT .MAXNO)  MAXND*N 

41  1 

c 

412 

c 

IF  AT  LEAST  1 NUDE  ON  THE  ARC  HAS  NOT  BEEN  ASSIGNEO  TO  A BUNDLE 

413 

c 

GO  TO  2 

414 

c 

4 15 

IF (BCNUM(M) .EO.O ) GO  TO  2 

416 

c 

417 

c 

IF  CNLV  THE  TERMINAL  NODE  ON  THE  ARC  HAS  NOT  BEEN  ASSIGNEO  TO  A 

418 

c 

BUNOLE.  GO  TO  3 

419 

c 

420 

IF(8CKUN(M.EQ.0>  GO  TO  3 

421 

c 

422 

c 

IF  BOTH  NOOES  ON  THE  ARC  HAVE  BEEN  ASSIGNEO  TC  THE  SAME  BUNOLE 

423 

c 

EVERYTHING  IS  OKAY.  GO  TRY  ANOTHER  ARC 

424 

i 

. C 

425 

IF ( BONUM ( N ) • EQ .BONUM! M ) ) GO  TO  1 

426 

r>  n u onr»  nnn  01  o n <■>  r>nnn  n r rt  r>  ri  non  r>nrinnn  on  no 
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427 

IF  THE  NODES  UN  THE  ARC  ARE  ASSIGNED  TO  DIFFERENT  BUNOLES.  42e 

THEN  lHESfc  TWO  BUNDLES  SHOULO  BE  POOLEO  429 

430 

IF(BONUM(N).LT.BDNUM(M)|  GO  TO  6 431 

432 

POOL  BUNDLES  433 

THE  BUNDLE  * I TH  THE  LARGER  BUNDLE  NUMBER  IS  POOLED  INTO  THE  434 

BUNDLE  WITH  THE  SMALLER  BUNDLE  NUMBER  435 

THE  BUNDLE  NUMBERS  OF  ALL  BUNDLES  ARE  ALL  ADJUSTED  436 

437 

MAXB0=EDNUM(N1  436 

M 1 NUD-UUNUMt M ) 439 

GC  TO  7 440 

6 MAXBO-BDNUM(M)  441 

MlNQO=bDNUM<NI  442 

7 DC  5 J*t.MAXND  443 

B=BDNUM(J)  444 

IF  IB.EQ.MAXOOl  UDNUMf  J )>MINBD  445 

IF  (B.GT.MAXBD)  BONUMI J I *BDNUMI J I-I  446 

5 CONTINUE  447 

NUMbO=NUMBD— 1 448 

GO  TO  1 449 

450 

IF  bUTH  NODES  ON  THE  ARC  ARE  UNASSIGNEOt  GO  TO  4 WHERE  A NEW  451 

BUNOLE  IS  CREATEO  452 

453 

2 IFIBDNUMIN1.EQ.0I  GO  TO  4 454 

455 

ASSIGN  THE  ORIGIN  NODE  OF  THE  ARC  TO  THE  BUNDLE  CONTAINING  THE  456 

TERMINAL  NUDE  457 

4SB 

BONUM(M)=BDNUM(N)  459 

GG  TC  1 460 

461 

ASSIGN  THE  TERMINAL  NOOE  OF  THE  ARC  TO  THE  BUNDLE  CONTAINING  462 

THE  ORIGIN  NODE  OF  THE  ARC  463 

464 

3 BONUM(N)>BDNUM(M)  465 

GC  TO  1 466 

467 

CREATE  A NEW  BUNDLE  466 

469 

4 NUMU0=NUK60*1  470 

80NUW(M»=NUMBD  471 

BONUM(NI*NUMBD  472 

I CONTINUE  473 

IS  CONTINUE  474 

BCNUM(SINK)*0  475 

4 76 

IF  WE  ONLY  HAVE  1 BUNDLE  FROM  THE  SUBNETWORK.  WE  ARE  FINISHED  477 

476 

IF  I NUMBO.EU. 1 ) GO  TO  219  479 

460 

ZEROIZE  CHECK  ARRAY  461 

482 

DC  290  1*1. ARCS  483 

90  CHECK ( i ) *0  464 

L*0  465 

466 

THE  NOOES  ARE  IN  BUNOLES.  PUT  THE  ASSOCIATED  ARCS  INTO  467 


C APPROPRIATE  PARALLEL  SUBNETWORKS  4e8 

C 489 

CO  33  l*l.NUMaD  4 SO 

SUWARC*0  491 

NSU6*NSUB*I  492 

00  34  K*  1 . ARCS  493 

M~SUBNET!K. ISUBN)  494 

N-SIMI  495 

C 496 

C SOURCE  ANO  SINK  HAVE  BUNDLE  NUMBER  0 497 

C 496 

IF  (N.EO. SOURCE)  N*T!M)  499 

IF  <HCNUMINI.EO.ll  00  TO  239  500 

IF  (N.EO. SINK)  OO  TO  229  501 

GC  TO  34  502 

C 503 

C SPECIAL  CASE!  BUNDLE  HAS  ONLY  2 NCOESS  SOURCE.  SINK.  504 

C PUT  ALL  ARCS  THAT  ARE  PARALLEL  SUBNETWORKS  BY  THEMSELVES  INTO  505 

C THE  CHECK  ARRAY  506 

C 507 

229  DO  291  J> 1 iK  506 

W*CHECK!J)  509 

IF  (W.EO.O)  GO  TO  292  510 

IF  (M.EO.w)  GO  TO  34  511 

291  CONTINUE  512 

292  CHECK! J)*M  513 

GO  TO  34  514 

C SIS 

C THIS  ARC  IS  IN  THE  BUNDLE  I.  HENCE  IT  IS  IN  THE  ITH  NEW  516 

C SUBNETWORK  517 

c si  e 

239  SUM ARC -SUM ARC  4 1 519 

SUBNET ( SUMARC. NSUB)*M  520 

34  CONTINUE  521 

C 5 22 

C CREATE  NEW  SUBNETWORKS  523 

C 524 

C 525 

C IF  THIS  BUNDLE  HAS  NO  NODES.  PUT  AN  ARC  SUBNETWORK  INTO  526 

C SUBNET  (l.NSUB)  527 

C 528 

IF  iSOMARC.EQ.O)  GO  TO  333  529 

343  NARC  SS i NSUB) ZSUMARC  530 

SOURC  t NSUB )* SOURCE  531 

SINKS!NSUB)*SIN<  532 

GO  TO  33  533 

C 534 

C STORE  THE  SUBNETWORKS  THAT  HAVE  ONLY  SOURCE  ANO  SINK  NODES  535 

C 536 

333  SUMARC* 1 537 

L"L+1  536 

SUBNET!  1 .NSUUl-CHECML)  539 

60  TO  343  540 

33  CONTINUE  541 

219  TNSUB*NUNBO  542 

RETURN  , 543 

ENC  544 

SUBROUTINE  CUT  1 TSUBN .LNODEN ) 545 

c 546 

C CUT  IDENTIFIES  CUT  NOOES  EXCLUDING  THE  DESIGNATED  SOURCE  ANO  547 

C SINK  54 B 


ft  r run  ft  ft  ft  ft  ft  ft  ri/npio  n ft  ftn 
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5*5 

CUT  ALSO  lULNUHtS  THE  COT  GROUPS;  THAT  IS.  THE  SUBNETWORKS  950 

WHICH  ARE  IN  SERIES  AND  CUNNECTEO  BY  THE  CUT  NODES  551 

552 

IMPLICIT  INTEGER  *2  (A-/)  993 

COMMON  SUBNET . S. T. SOURC .SINKS. NARCSS. NSUB. TNSUB  954 

INI  EGER *2  SI  1000). T I 1 000 ) . SUBNE T ( 1 0 0 0 . 1 0 0 ) . SCURC ( I 00 ) . S 1 NKS I 1001  . 555 

• NARCSSUOO)  556 

INTEGER *2  TARCI I 000) .ORIGIN!  1 0 00 ) ,P0 ST { 1 000 ) .RCUT I I 00 ) .PPOST 1 1 000  I 557 

558 

FINE  THE  CUT  NOOES  559 

NCUT  IS  THE  NUMOER  OF  CUT  NOOES  FOUND  THUS  FAR  560 

561 

NCUT=C  562 

ARCScNARCSS( TSUBNI  5bJ 

SOURCE = SCURC l TSUBN)  56* 

SINK=SINKS( TSUBN)  565 

566 

THE  OQ  LOOP  DOWN  TO  STATEMENT  NUMBER  I DETERMINES  THE  CUT  NOOES  567 

566 

CC  I K-I.LNOOEN  569 

570 

CHECK  TO  SEE  IF  NOOE  K IS  ACTUALLY  IN  THE  SUBNETWORK  571 

572 

00  20  J—  1 .ARCS  573 

2XSUBNET( J.T  SOON ) 57* 

IF(SIZ).EO.K)  GO  TO  21  575 

IF  IT(Z).EO.K)  GO  TO  21  576 

CONTINUE  577 

578 

NODE  K IS  NOT  IN  THIS  SUBNETWORK  579 

seo 

GC  TO  I 581 

21  CONTINUE  5E2 

C 583 

C NOOE  K IS  IN  THIS  SUBNETWORK  5e* 

C 585 

IF  IK .EC. SOURCE)  GO  TO  I 586 

IFIK.E0.S1NK)  GO  TO  1 5e7 

MARCO  586 

NPPCSTM  589 

00  2 J-l.ARCS  590 

2*SUENET (J. TSUBN ) 591 

IF  IS(Z).EO.K)  GO  TO  2 592 

IF  (TtZ).EO.K)  GO  TO  2 593 

NTARC-NT  ARCM  594 

T ARC  I NT  ARC ) a SUBNE  T ( J • T SUBN ) 595 

2 CONTINUE  596 

C 597 

C TARC  IS  THE  SUBNETWORK  WITHOUT  THE  ARCS  INVOLVING  NOOE  K 598 

C IF  TARC  CONTAINS  A PATH  FROM  THE  SOURCE  TC  THE  SINK.  THEN  NODE  599 

C K IS  NOT  A CUT  NOOE  600 

C OTHERWISE.  K IS  A CUT  NODE  601 

C 602 

CRIGINI1  )»SUURCE  603 

PPCSTIl)*  SOURCE  60* 

NCR  I G* 1 60S 

II  CONTINUE  606 

NP0ST«0  607 

C 608 

C IF  THERE  ARE  NO  ARCS  IN  THE  TARC  ARRAY.  K IS  A CUT  NODE  609 
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C 610 

IF  (NTARC.EQ.OI  CO  TC  44  611 

C 612 

C FINE  ALL  NUDES  «H1CM  COME  AFTER  AN  ORIGIN:  PUT  THEM  IN  POST  613 

C ANO  PPOST  IF  THEY  ARE  NOT  PAST  POSTS  614 

C 6 1 S 

00  4 I * I, NOR I G 616 

YsGRIGINIt)  617 

OO  5 J— 1 • NT  ARC  6 16 

2=  T ARC! J ) 619 

U*S ( 2 ) 620 

V—  T I 2 ) 621 

IF  (U.NE.Y2  GO  TO  5 622 

C 623 

C IF  WE*VS  REACHEO  THE  SINK.  NODE  K IS  NOT  A CUT  NODE  624 

C 625 

C 626 

IF  (V.E0.S1NK)  GO  TO  I 627 

C 626 

C IF  V IS  A PAST  POST.  LET* S IGNORE  IT  629 

C ‘ 630 

DC  49  L-l.NPPOST  631 

IF  ( V.EO.PPOSTILIl  GO  TO  5 632 

49  CONTINUE  633 

NFCST=NPOST* 1 634 

POST (NPGST )=V  635 

NPP0ST”NPP0ST*1  , 636 

PFOST tNPPOSI >*V  637 

GC  TC  5 638 

S CONTINUE  639 

4 CONTINUE  640 

C 641 

C IF  THERE  ARE  NOW  NO  POSTS.  NODE  K IS  A CUT  NOOE  642 

C 643 

44  IFtNPOST.NE.O)  GO  TO  13  644 

NCUT”NCUT«l  645 

RCLT(NCUT)=K  646 

GO  TO  l 647 

13  NORIGzNPCST  646 

OO  14  L«l. NORIG  649 

C 650 

C THESE  ARE  NOW  OUR  NEW  ORIGINS  651 

C 652 

14  OR  I G I N ( L IMPOST (L  t 653 

C 654 

C CHECK  THE  NEW  ORIGINS  FOR  THEIR  POSTS  655 

C 056 

CO  TO  11  657 

1 CONTINUE  658 

IF  (NCUT.EO.O)  GO  TO  32  659 

NSUB=NSUB»1  660 

SCURC  t NSUE I = SOURCE  661 

33  CRIGINI I »* SOURCE  662 

C 663 

C NCw  WE  NEEO  TO  F I NO  THE  COMPONENTS  OF  THE  SERIES  SUBNETWORKS  664 

C THAT  ARE  SEPARATED  BY  THE  CUT  NODES  665 

C 666 

30  SUM ARC” 0 667 

NORIG”!  668 

NFPOST* I 669 

23  NPCST»0  670 
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PPCST ( 1 >=GRIGIN(  1 I 671 

DO  24  l-l.MUO  672 

r<CRIGIMI)  673 

DC  25  J=  1 • AM C S 674 

2*SUBN£T  (J.TSJON1  67S 

C 676 

C ALL  APCS  BEGINNING  AT  THIS  ORIGIN  GO  INTO  THE  NEW  SUBNETWORK  677 

C 678 

IF  ( S ( 2 1 . NL.  Y 1 Go  TO  25  67<S 

SU WARE— SU MARL ♦ 1 680 

SUBNET  ( SUM ARC • NSUb  1 =2  661 

C 682 

C T 1 2 ) WILL  BE  A POST  IF  IT  ISN'T  A REPEAT  OF  A CURRENT  683 

C ORIGIN  OR  A CUT  NODE  684 

C 685 

C CHECK  TO  SEE  IF  IT  IS  A REPEAT  686 

C 687 

X*T(2)  688 

00  30  K=l, NORIG  689 

C 690 

C IF  T (27  IS  A REPEAT  CF  A CURRENT  ORIGIN.  LET'S  IGNORE  IT  691 

C 692 

IFIX.EQ.ORIGINCKH  GO  TO  25  693 

30  CONTINUE  694 

C 695 

C CHECK  TO  SEE  IF  TI2)  IS  A CUT  NODE.  IF  IT  IS.  DON'T  PUT  IT  696 

C IN  THE  POST  OR  PPOST  ARRAYS  697 

C 698 

DO  52  W-l.NCUT  699 

OxRCOT(W)  700 

IF  (X.Nt.D)  GJ  TO  52  701 

C 702 

C THIS  CUT  NODE  IS  THE  SINK  CF  THE  SUBNETWORK  UNDER  703 

C CONSIDERATION  AND  THE  SOURCE  OF  THE  NEXT  SUBNETWORK  TO  BE  704 

C CCNS1CERED.  705 

C 706 

SINKS(NSU8)xD  707 

SCLRC(NSU8tl 1=0  708 

GO  TO  25  709 

52  CCNTINUE  710 

C 711 

C IF  T 1 2 ) IS  A REPEAT  OF  A PAST  POST.  LET'S  IGNORE  IT  712 

C 713 

00  7 <=1.NPP0ST  714 

IF  ( X. EC. PPOST (K ) ) GO  TO  25  715 

7 CONTINUE  716 

NPGST*NPCST4l  717 

POSI <NPGST1=X  718 

NPPOST=NPPOSTF 1 719 

PPCSTI NPPOSI 1 *X  720 

25  CONTINUE  721 

24  CCNTINUE  722 

C 723 

C IF  WE  HAVE  NU  POSTS  LEFT.  «E  HAVE  FOUND  ALL  OF  THIS  SUBNETWORK  724 

C 725 

IF  (NPOST.EO.Ol  GO  TO  34  726 

NORIGxNPOST  727 

00  28  Lx  1. NORIG  728 

26  CRIG1N(L)«P0ST(L)  729 

GO  TO  23  730 

34  NARCSSINSUBI * SUM ARC  731 
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NSue=Nsue» i 
X*SCURC(NSUB) 

c 

C IF  THE  SOURCE  OF  NSOB  IS  NOT  A CUT  NODE.  ME  NEEO  TO  AOJUST  NSUB 

C AKD  CO  BACK  TO  THE  MAIN  PROGRAM  FOR  THE  NEXT  STAGE  OF  THE 

C BREAKUP 

C 

IF  IX.EQ.O)  GO  TO  St 
ORIGIN! 1 )=X 
GO  TO  39 

31  NSU8*N  SUB— I 
SINKSiNSUB ) *S I NK 

32  TNSUB=NCUT*1 
RETURN 

END 

SUBROUTINE  PUNSVN 

C THIS  SUBROUTINE  PUNCHES  THE  CARDS  NEEDED  FOR  SYNTHESIS 

C CAR 011*11  = THE  INSTRUCTION  NUMBER. I 

C CARO! 1.2)  = THE  DECOMPOSABLE  SUBNETWORK 

C CARO! 1.3)  = I SORP; 

C 1 SORP=0  IMPLIES  A SERIES  DECOMPOSITION 

C IS0RP=1  IMPLIES  A PARALLEL  DECOMPOSITION 

C CARD! I .4... ) = THE  SUBNETWORKS  RESULTING  FROM  THE 

C DECOMPOSITION  OF  SUBNETWORK  I 

IMPLICIT  1 NTEGER42  IA-Z) 

COMMON  /NEW/  CARD. I NSTN 
INTEGER  CAPO! 100. 27),WHYN0T 

INTEGER  F5/13/ 

WHYNCT  * INSTN 
WRITE  ZEE)  WHYNOT 
WRITE1F5)  CARD 
ENCF1LE  FS 
RETURN 
ENC 

SUBROUTINE  PRESUBI I SUBN) 

c 

C PREPARES  THE  SUBNETWORK  FOR  SUBNETWORK  ANALYSIS 

C INCLUDES  RENUMBERING  THE  NODES  1.2.....  CONSECUTIVELY. 

c 

IMPLICIT  INTEGERW2  !A -it 

COMMON  SUBNET. S. T.SUURC .SINKS. NARCSS. NSUB. TN  SUB 

INTEGER *2  Si  1 00  0) .T ( 1000) . SUBNET  I 1 00 0 . 1 00 ) . SCURC I 100 ) .SINKS!  100) . 
WNARCSS! 100) 

1NTEGERW2  HEAD! 1 000) . TAIL! 1000 ) , NODE ! 1000) 

COMMON/PREP/  NUMSUB 

INTEGER  FILE3! 1 503 ) . NET ! 3 » SO 0 ) . N3 

INTEGER  F 3/ 11/ 

EQUIVALENCE  (FILE314  ),NET( l ) ) 

NDMSUB*NUNSUU+1 

c 

C TSUBNbTHE  NUMBER  of  the  minimum  subnetwork 

c 

c 

C RENUMBER  THE  N00ES  IN  THE  SUBNETWORK 

C 

N-NARCSS (TSUBN) 

OC  I I»I.N 
J*SOBNET! I .TSUBN) 

NODE  I 2*1  — 1 ) = S!J) 

I NODE (2*1)  * T(J) 

c 


732 

733 
7 34 
7 35 

736 

737 
736 

739 

740 

741 

742 

743 

744 

745 

746 

747 

74  e 

749 

750 

751 

752 

753 

754 

755 

756 

75  7 

758 

759 

760 
7 C I 

762 

763 

764 

765 

766 

76  7 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 
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C SORT  THE  NOOES  793 

C 794 

100  LIMIT  = 24N  795 

IPASS  = 2*N-l  796 

IFLG  = l 797 

CC  2 J=l, IPASS  798 

LIMIT  = LI  MI T-l  799 

IF  ( IFLO.EC.O)  GO  TO  3 800 

IFLG  = 0 801 

DC  4 K=l, LIMIT  802 

IF  ( NODE ( K > .LE .NODE ( K ♦ 1 1 ) GO  TO  4 803 

KELP  = NOOEIKH1I  804 

NOOE(KHl)  = NUDE  <K ) 805 

NCOEIK)  = KEEP  806 

IFLG  = l 807 

4 CONTINUE  808 

2 CONTINUE  809 

C 810 

C DISCARD  ANY  DUPLICATIONS  IN  THE  SORTEC  LIST  811 

C 812 

3 KOUN 1=1  813 

00  5 1=1. IPASS  814 

IF  (NODE! 1 t «EQ .NODE (!♦!))  GO  TO  5 815 

KCUNT  = KCUNT HI  816 

NODE  I K CUNT ) = NODE (14  1)  817 

5 CONTINUE  818 

C 819 

C CHANGE  INPUT-HEAD. TA  IL  820 

C 821 

DC  a L= 1 ,N  822 

l=SUliNET  (L.TSUUN)  823 

DO  9 J= 1 . KOUN  T 824 

IF  I T t I ) .NE .NODE ( J 1 1 GO  TO  9 825 

HEAD  I L 1 = J 826 

GO  TO  8 827 

9 CONTINUE  828 

8 CONTINUE  829 

DC  11  L=1.N  830 

1=SU8NET(L.TSUUN)  831 

DC  12  J=1,K  832 

IF  I SIU.NE.NOOEI  J1I  GO  TO  12  833 

TAILll »*J  834 

GC  TO  11  835 

12  CONTINUE  836 

II  CONTINUE  837 

F ILL  3( 1 1 = N 838 

FILE3I2)  = T SUB  N 839 

FILE3I3)  = KOUNT  840 

DO  10  J=1.N  841 

NETI1.J)  « HEAD ( J ) 842 

NETI2.J)  = TAIL! J)  843 

10  NET ( 3 • J ) = SUUNETI J . TSUON  ) 844 

C 845 

C OUTPUT  846 

C 847 

WRITEIF3)  F1LE3I1)  848 

N3  = 2 ♦ 3*N  849 

CALL  *HTtF3.FiLC3<2).N3>  850 

WRITEI6.200)  851 

200  FORMAT ( IHO./lbX. • T HE  FOLLOWING  REPRESENTATION  OF  THE  SUBNETWORK  AB  852 

WOVE  WILL  BE  USED  BY  THE  SUBNETWORK  ANALYSIS  PROGRAMS • I 853 
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30 

31 

7005 


• fi  ITEI6.30 > 854 
FORMAT! IH0.19X.«ACTtVITYa>4X«*TAIL> .6X,*HEA0* > 855 
4ft  I T E ( 6 • 3 1 ) 1 1 .TAIL! I ) .HEAD! 1 ) .1*1 ,N)  856 
FORMAT (20Xi I b • SX • IS  • 5X  • 151  857 
Aft  I T E I 6 • 700S)  858 
FORMAT ( 1H1 ) 859 
RETURN  860 
END  661 
SUBROUTINE  Aft  T < J • A • N > 862 
DIMENSION  AIN)  863 
AftlTEIJt  A 864 
RETURN  865 
END  866 
SUBROUTINE  RDIJ.A.N)  867 
DIMENSION  AIN)  868 
REAOIJ)  A 869 
RETURN  870 
ENO  671 
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7.  SUBNET 


C SUBNETWORK  ANALYSIS  PROGRAM  t 

C 2 

C THIS  PROGRAM  OfcT ERMINES  THE  OURATICN  OISTRIBUTION  FOR  EACH  3 

C SUBNETWORK  IDENTIFIED  BY  THE  DECOMPOSITION  PROGRAM.  4 

C 5 

C FOR  THE  SAKE  OF  IDENTIFYING  THE  APPROPRIATE  DIMENSIONS.  LET  6 

c MM AX  « THE  MAXIMUM  NUMBER  OF  ACTIVITIES  IN  THE  ORIGINAL  7 

C PROJECT  NETWORK  8 

C L MAX  « THE  MAXIMUM  NUMBER  CF  ACTIVITIES  ON  A CRITICAL  PATH  9 

C LMAX  IS  LESS  THAN  OR  EQUAL  TO  MSMAX  10 

C CMAX  * THE  MAXIMUM  NUMBER  OF  ACTIVITIES  IN  A CLUSTER  II 

C CMAX  IS  LESS  THAN  OR  ECUAL  TO  MSMAX  12 

C MSMAX  * THE  MAXIMUM  NUMBER  OF  ACTIVITIES  ALLOWED  IN  ANY  ONE  13 

C SUBNETWORK  14 

C NSUBMAX  = THE  MAXIMUM  NUMBER  OF  SUBNETWORKS  ALLOWED  IN  THE  IS 

C DECOMPOSITION  PROCESS  16 

C I EOF  MAX  * THE  MAXIMUM  NUMBER  CF  SUBDIVISIONS  ALLOWED  IN  THE  17 

C APPROXIMATE  CDF  FOR  EACH  SUBNETWORK  18 

C SCIM  * 12  * ( 1 EOF  MAX— I ) ♦ 2 19 

C CURRENTLY.  MMAX=1000J  LMAX=50{  CMAX-IOOi  MSMAX=500J  N3U0MAX=100  20 

C 1 EOF  M A X = 2 0 ! SDIM=2JO  21 

C 22 

C DIMENSION  CT IMEI MSMAX) . OT IME (MSMAX) .AORDI MSMAX) , TAIL 1MSMAX) . 23 

C 4 HEAD! MSMAX) . XNODEI MSMAX ). I BBILMAX I .KBI LMAX ). ICRITP(LMAX)  24 

C 4 COT (MSMAX ) .SIGMA! MSMAX) .NI NCL ( LMAX ). INCLUSILMAX .CMAX ) • 25 

C * Fl)(  I EOF  MAX  ) . UL  EFO(  I EDFM  AX  ) . LLEFD(  I EOFM  AX  ) .FHI  (MSMAX)  . 26 

C ♦ FLU( MSMAX) ,PP( MSMAX) .PC(MSMAX > .FLHAT ( IEDFMAX ) . 27 

C 4 FUHATI IEDFMAX). FDLHATI3. IEDFMAX). F0UHATI3. IEOFMAX).  28 

C 4 FHAT(  IEDFMAX)  .BRHSI  (SOI  Ml . INBASEI SO( M) , XBI  (SOIM).  29 

C 4 VI (SOIM) ,B1 INV( SDIM.SOIM) ,F 1LE 3 ( 34MSMA X42 ) .NETI3. MSMAX) . 30 

C 4 LUPI3.MMAX)  31 

C 32 

C IN  SUBROUTINE  ORDER  THE  ARRAYS  ARE:  33 

C DIMENSION  ND(MSMAX) .NDD(MSMAX)  34 

C 35 

C IN  SUBROUTINE  CLUSTR  THE  ARRAYS  ARE:  36 

C DIMENSION  LEFTIMSMAX ) .LEFTO( MSMAX ).NONCP( MSMAX) . NINAGIMSMAX ) . 37 

C 4 NCLINCILMAX), ASSGRPILMAX. LMAX) , CL  I NCL ( LMAX , LMAX).  38 

C 4 EGRP(LMAX)  39 

C 40 

41 

IMPLICIT  REAL*8  (A-H.O-Z)  42 

COMMON  /BLKA/C T I ME .DTI  ME • M 43 

DIMENSION  CT IMEI 0500 ) «DT IME ( 0500)  44 

45 

COMMON  /BLAA/XNODE.TAIL.HEAD.AORD.NMM  46 

INTEGER  ACRDI500 ).TAIL(500), HEAD ( 500 ) 47 

DIMENSION  XNOOE(SOO)  48 

C...  .......................  .........  49 

C CCMNCN  /BLKU/lBOtKB.KKB.KKK  SO 

C DIMENSION  IBB(50).KB(50>  St 

52 

COMMON  /BLKC/ICRITP.KCPB  53 

DIMENSION  ICHITP(SO)  54  * 

C.  ............  ................  55 

COMMON  /BLKD/SI GMA.CUT  56 

DIMENSION  CUT(SOO). SIGMAISOO ) 57 

C*.  ..........................  .......  58 

COMMON  /BLKC/ I NCLUS • N I NCL . NCL US  59 

O I ML  NS  I ON  Nl NCL ISO)  . I NCL US I 50.100)  60 


o n 
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C..  ......................  61 

COMMON  /BLKG/FO. ULEFO . LLEFO  62 

REAL68  FC (20 1 . ULEFD( 201 • LLEFO ( 201  63 

C. 64 

COMMON  /BLKH/FHI .FLO.PP.PQ  65 

O 1 MENS  1 ON  FH1 (5001 • FLO  ( 500 )»  PP (500) .PQI500)  66 

C.... 67 

COMMON  /BLK 1/ I EOF • NSUB • SAM51 Z 68 

INTEGER  SAMSIZ  69 

C.  .........................  .........  70 

CCMMCN  /BLKJ/IHET.LAM80  71 

RE AL68  LAMBO  72 

C 73 

COMMON  /BLKK/IR.IB  74 

C.......  ......  75 

COMMON  /BLKL/FLHAT.FUHAT  76 

DIMENSION  FEHAT(20I.FUHAT(20I  77 

7U 

COMMON  /BLKS/SUM. ICLG1B  79 

80 

COMMON  /BLK Y/FDUHAT . FDL  HAT ,FHAT  81 

DIMENSION  FDL HAT (3.20). FDUHA  T ( 3. 20  I . FHAT ( 20  I 82 

C 83 

COMMON  /BLK Z/ THETA  84 

REAL44  THET  A( 3)  85 

C.  ...........................  .......  86 

C COMMON  /BLKI/B1 INV, OMEGA. MM, KK , MMKK . MMKK2. N. MP I . JFIRST  87 

C COMMON  /BLK2/V1  88 

C 0 I MENS  ION  eRHSl  (2301  , INBASE!  2301  .XBK230)  , VI  (230  I.BI  1NV(  230.230)  89 

50 

INTEGER  THELAM  91 

INTEGER  F ILE J( 1 5 02 1 92 

INTEGER  F3/1 I/.F4/12/.F5/I3/  93 

REAL48  L UP (3.1000)  94 

DIMENSION  NE  T ( 3 . 500  I 95 

DIMENSION  N I MPT (31  96 

C I MENS  1 ON  C DF (12)  97 

REAL44  LAMBDA! 3 ) 98 

REAL44  RTHETA(3) ,RLAMBO( 3 I 99 

REAL48  Ml. M2. M3  100 

EGUI VALENCE  ( F I LE3( 3 ) . NET ( I I I 101 

ECUI VALENCE  ( FI LE3 ( 6 I . R THET A ( 1 I I . (F I LE3< 9 1 . RLAMBD ( I I ) 102 

. 103 

104 

WRITE(6. 90001  I 105 

90001  FCRMAT(1H1.132(*6* 1/ I X . 1 32 ( • 4 • ) / • OTH I S IS  THE  OUTPUT  FROM  THE  SU6N  106 

4ETWCRK  ANALYSIS  PROGRAM:  SUBNET •/ 1H0 . I 32 (• 6 •)/ 1 X . I 32 <• 4 •) /////  107 

6*  EACH  SUBNETWORK* . 1H* . *S  APPROXIMATE  DURATION  DISTRIBUTION  IS  DET  108 

4ERMINE0.*)  109 

C 644 4 44 4 44 4 4 644466444 664464 46 6444644646 64464644664 6466 464 6 6666 46 6 6 446 6 64  1 10 

C III 

C RE AO  IN  INFORMATION  PERTAINING  TO  ALL  SUBNETWORKS  112 

C 113 

C444444 444  444  44  44  44  444444  4 4444  4 464  4444444444444644  4444  44444444  444  4444444  I 14 

REWIND  F3  115 

REW INC  FS  116 

RE  AO (F  5 ) 117 

READ ( FS I 118 

REAC(FS)  119 

REWINO  FA  120 

READ (FA ) 121 
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RFAC(F4>  NACT 

122 

c+»*+ 

* 123 

c 

124 

c 

CE  T tkN  INI  L.U.  ANI)  P FCH 

EACH 

ACTIVITY  IN  THE  SIMPLIFIED 

125 

c 

PROJECT  NETWORK 

126 

c 

127 

CM## 

4 12B 

00  10  L * 1 • NAC T 

120 

PL  AC <F4 )COF 

130 

M1=0.00 

131 

M2— 0 *00 

132 

M3*0.C0 

1 33 

00  20  K = 2 • 1 1 

134 

M1*M1«CCF(K) 

135 

M2*M2FC0F IK) **2 

136 

20 

M3=M3*C0F (K )**3 

137 

M 1«M 1*. 100 

136 

N2*M24. 100 

139 

M3*MJ*. 100 

140 

T 3*M 1 *M l — M2 

141 

IF 10A0S ( T 3) .(.E. 1 .D- 10 )GO  TO 

21 

142 

U*C0F(21 

143 

B = U 

144 

P = 1.00 

145 

00  TO  22 

1 46 

21 

T 1= (M3-M1 *M2>**2 

147 

T 2 — 4 .00*T3*( M2*M2-M1 *M3> 

146 

T 3*2 .CO*  T 3 

149 

U*-K3+M1*M2-DSQRT(T1-T2) 

ISO 

U*  U/  T 3 

151 

U*<M2-M1*0)/(M1-U) 

152 

P= (Ml-O) /IB-U) 

153 

22 

LUP(  1 .L )*B 

1 54 

LUFI2.L) *U 

155 

LUP(3.L)*P 

156 

10 

CONTINUE 

157 

CALL  RDIF3.F ILE3. 1 1 I 

156 

1 EOF  =F 1 LE3 ( 1 ) 

1 59 

NMAX=FILE3<2> 

160 

IPC0L*FILE3<3) 

161 

SAMS  1 2*F 1LE3I4) 

162 

THELAMxF ILE31S) 

163 

00  2 1*1.3 

164 

THE  1 A ( 1 ) = R THE  T A { I ) 

165 

2 

LAMbOAl  I ) =RL  AMfcj  D ( 1 ) 

166 

1 

CONTINUE 

167 

c#### 

• 168 

C 

169 

C 

ANALYZE  EACH  SUBNETWORK 

SEPARATELY 

170 

c 

171 

c 

172 

c 

RE AC  IN  THE  DESCRIPTION 

OF  THE 

SUBNET  WORK 

173 

c 

1 74 

c***« 

• 175 

REAOIF J.EN0*999)  M 

176 

N2  * 2 ♦ 3* M 

177 

CALL  R0IF3.FILE3I 1 1.N31 

1 76 

NSUB  * FILtJ(l) 

179 

NX*  * FILEJ12) 

1 BO 

WRITEI6.2600)  NSUB 

161 

2600 

FCRMATI1HI.  SX. • SUBNETWORK 

• . IS) 

1 62 
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C M x 1 HE  NUMBER  OF  ACTIVITIES  IN  THE  SUBNETWORK  163 

c NMM  x THE  NUMBER  OF  NOOES  IN  THE  SUBNETWORK  164 

WPlxMM  IBS 

C I 66 

C THE  ACTIVITIES  ARE  OESCRIBEO  IN  TERMS  OF  THEIR  NOOES  187 

C II  = THE  TAIL.  NOOE.  THE  ORIGIN  NODE  168 

C J J— T HE  HE AO  NOOE.  THE  TERMINAL  NODE  184 

C FLC  x THE  LOWER  POINT  140 

C F MI  * THE  UPPER  POINT  141 

C SIGMA  x (FHI  - FLO  1 4DSQRT ( P*<l-P»  ) ■ STD.  DEVIATION  142 

C PP  * THE  PROBABILITY  OF  THE  LOWER  POINT  143 

C 194 

00  610  I * 1 • M 195 

HEAD! I ) - NET! 1.1)  146 

TAIL! I ) x NET (2.1 ) 197 

K x NET (3.1)  196 

FLCI I)  x LUP(l.K)  199 

FHI ( I ) x I.UP12.K)  200 

PP(I ) x LUP13.K ) 201 

P0( I )xl .00-PP( I ) 202 

SIGMA(I)x(  FH  1(1  )— FLO!  I ) ) *0  SOP  T I PP(I)4P0(D)  203 

COT ( 1 )=PP! I )4FLO(  I )*PC!  I >*FHl ! II  204 

CTIME! I ) x COT ( I ) 20S 

610  CONTINUE  206 

C COT  = THE  ORIGINAL  R IGHT-HANO  SIOES.  I.E.  THE  MEANS  207 

C OF  FLO  AND  FHI  2 08 

C CT1ME  s THE  CURRENT  RIGHT-HAND  SIOES  209 

WR1TEL6 .27001  210 

2700  FORMAT!  1H0. 10X.' INITIAL  INPUT')  211 

WR1TE(6.2701 ) 212 

2701  FORMAT!  1H0. 10X. 'ACTIVITY  ORIGIN  TERMINAL  LOWER  POINT  UPPER  P 213 

•CINT  MEAN  STANDARD  OEV1ATION  PROB.  LOWER  PT.')  214 

DC  2704  I x 1 . M 2 1 S 

2704  WRITEI6. 27021  I . T A 1L!  I I . HE AO 1 1 I . FLO ! I I . FH I ( t ) ,C T 1 ME!  1 ) . SIGM A i I ) . PP  216 

*11)  217 

2702  FORMAT ! 1H  . 1 3X,  I 3. 5X . I 3 . 7X . I 3.5X ,F 1 0 . 4 . 3X .F I 0. 4 . 3X .F 1 0.4 ,4X . F 1 0 . 4 . 218 

* 14X.F7.S)  219 

C********* ••*•••**•***••*•*  ************  **•*•••••*••**  *******************  220 

C 221 

C IF  THERE  IS  ONLY  1 ACTIVITY  IN  THE  SUBNETWORK.  LET  FHAT  BE  222 

C THAT  ACTIVITY'S  DURATION  DISTRIBUTION  223 

C 224 

C****« *•••••*••***••*•**•••••**•*••**•*«***••*•**•***•**•*••••*•**•*♦*•*  22S 

IFIM.GT.l)GO  TO  4 226 

REWIND  F 4 227 

I *K4 l 22 8 

DO  25  Lx  1 . 1 224 

READ  I F4 ) 230 

25  CONTINUE  231 

READ IF4I I FD! I) .I»l .12)  232 

JEDF  x 12  233 

FHATIDxO.DO  234 

FHAT!12)x 1 .DO  235 

Mix-. 0500  236 

00  30  Lx2.ll  237 

M I xM I 4 * 1 DO  236 

30  FHAT !L)xMl  239 

WR1TEI6.7  00  INSUB  240 

700  FCRMATIIH1. SX . • THE  DURATION  DISTRIBUTION  FOR  SUBNETWORK  '.121  241 

WRITEI6.I08I  242 

00  701  I x 1 . JEDF  243 
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701  WRITEI6.1  C3IFDI  I >.FHAT1I  > 244 

GO  TO  3 24S 

C4 ******** *4* ********* 4*4*4**44**4***4**4**44****44*4*4*4***4*44*444**4*  246 

C 247 

C INITIAL  DETERMINES  THE  CRITICAL  PATH  WHEN  EACH  246 

C ACTIVITY'S  DURATION  IS  ITS  MEAN.  LOWER  BOUND.  AND  UPPER  8CUN0  249 

C 250 

C4**44**4»«**4***4**444*444»444444**444*4*444444444444*4*444444*44444444  251 

4 CALL  1MTAL  252 

4**44***  *44  *«*4444* **444*4444 4*4*44* 4444 4*4 4 4 *4444*4 4444**444*  2«3 

C 254 

C IF  M IS  LESS  THAN  OR  EQUAL  TO  NMAX.  LET  FH AT  BE  THAT  255 

C ACTIVITY'S  DISCRETE  DURATION  DISTRIBUTION  256 

C 257 

C*4****44***4444«**4444444444*4444444444*4*4444444444444*444444«*6464444  256 

IF 1M.GT.NMAXIGO  TO  5 259 

CALL  FINDF  260 

J EOF  * IEOF  261 

GC  TO  3 262 

C4  4 4 44  4 ****** 4**44* *44*44  4 44* 444*4*44*4  44 4 4 444 4***4444 44444*44 444 4444444  263 

C 264 

C DETERMINE  THETA  ANO  LAMBDA  265 

C 266 

C IF  THELAM  = 0 THE  DEFAULT  PAIRS  I THET A ,L AMBDA I * ( I . I ) . I 2 . 2 I . ( 3 . 2 267 

C WILL  BE  USED  2 68 

C 269 

C IF  THELAM  IS  NOT  0 THE  USER-SPEC I F IEO  ( THETA .LAMBDA)  PAIRS  270 

C WILL  BE  USED  271 

C 272 

C NOTES  THE  FOLLOWING  RELATIONS  MUST  ALWAYS  BE  TRUE  273 

C THETA ( l)<sfHETAI2)  <=  THE  T A<  3 ) 274 

C LAMBDA! 1 ) <=L AMBOA ! 2 ) < = L AMBO A 1 3 ) 275 

C 276 

C44  4 4444*4 *44 *4  4444*4  4 44*4  44  4 *4444444*44444444 4*4*4444**444*44**4  4444444  277 

5 OO  5C0  1*1.3  276 

IF ( THELAM. NE.O IGO  TO  222  279 

LAMUD*2.00  260 

IFII.EQ.l  )L AMBO* I .OO  261 

T HE  T = GFL  0 AT (I  I 282 

THETA! 1 )*THET  283 

GC  TO  201  284 

222  T HE  T * THE  T A! I I 285 

LAMUD*L AMODA! I > 286 

C464 464 44* 444*4 44 44*4 444444444 4444 4444444* 4444 4*4* 44* 4 444 644 44 44* 4 4444 44  287 

C 288 

C SUBROUTINE  CLUSTH  DETERMINES  THE  CLUSTER  FOR  GIVEN  THETA  AND  289 

C LAMBDA  290 

C 291 

C 4* *4 4* ****** *4 4* *****4*44 4444 *4* 4 4**4 *44 4*444 *4**444 4 4**4444* *4* 44444 44  292 

201  CALL  CLUSTR  293 

C 294 

C THE  FOLLOWING  DETERMINES  WHETHER  CR  NOT  THESE  CLUSTERS  HAVE  295 

C BEEN  CONSIDERED  BEFORE  296 

C 297 

ISUM^O  298 

OO  200  11*1. NCLUS  299 

200  I SLM* ISUM4NINCLI I I I 300 

N IMPT ( I I* ISUM  301 

IFII.EQ.l) GO  TO  202  302 

IF! ISUM.EQ.NI MPT  I I — 1 ) ) GO  TO  203  303 

202  CONTINUE  304 
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<:••••••  ••*•*••••* *******************»********************* **************  JOS 

C 306 

C CALCULATE  THE  UPPER  AMD  LCttER  60UNCS  ON  THE  SUBNETWORK  307 

C CUHATICN  DISTRIBUTION  308 

C 309 

C* •*•••*•**•*••**•••**•********•»*******••**•••••*•****•••♦•♦•♦♦**♦♦•* **  310 

C 31  1 

C ELIMINATE  FROM  THE  CLUSTERS  ANY  ACTIVITIES  HAVING  CONSTANT  312 

C DURATION.  IF  THESE  ACTIVITIES  ARE  LEFT  IN.  THE  TOTAL  NUMBER  313 

C OF  POSSIBLE  ACTIVITY  DURATION  CONFIGURATIONS  FOR  THE  CLUSTERS  3 I A 

C IS  ARTIFICIALLY  INFLATED.  31S 

C 316 

00  2 SO  II*1.KCPB  317 

IL*MNCL(II)  316 

IF! IL.LE.11G0  TO  2S0  319 

111  = 1 320 

2 51  IF( I I I .GT.ILIGO  TO  254  321 

L*tNCLUS( 1 1 . I I I ) 322 

IF(SIGMAIL) .NE.O .00 IGC  TO  253  3 23 

ILcl L— 1 324 

If < I I 1 .GT .IL »GU  TO  2S4  32S 

OC  2S2  1111*111. IL  326 

252  INCLU  S (II.IIII)* INCL  US I II.IIII+1)  32  7 

253  111*11141  326 

GO  TG  251  329 

254  N 1 NCL ( II Is I L 330 

IF(IL.EQ.O)NCLUS*NCLUS-t  331 

250  CONTINUE  332 

I F ( I POOL . EO* 1 ) CALL  UNION  333 

IF  I I POOL • EO. 0 ) CALL  SINGLE  334 

C********** **•*••••••*••••*•**•*••*••••*«••••••••••••• ••••*•** ••*••*«***  33S 

C 336 

C SAVE  THE  ESTIMATES  CALCULATED  BY  UNION  OR  SINGLE  337 

C FOR  THE  I-TH  THETA-LAMBOA  PAIR  338 

C 339 

C*»* *•*••*****•**•«*••****••*••••*•*•*****•*****•*•«•********* **********  340 

203  CONTINUE  341 

•R1TEI6.I00)  NSUB.THET .LAM80  342 

100  FCRMATOHl,  SX. •BOUNDS  ON  THE  DURATION  DISTRIBUTION  FOR  SUBNETWORK  343 

• ••  14. • WHEN  (THETA. LAMBOAI  * ( *.E1S.S.*  . *.E15.5.*  )•)  344 

WRITEI6.I01)  345 

101  FORMAT ( 1H0.14X. • TI ME • • 1 6X . 'LOWER  BOUND* . 9X. • UPPER  BOUND* ,/>  346 

1FLG*0  347 

OC  300  11*1.1 EOF  348 

FLTEMP*FLHAT(II ) 349 

FU TEMP*FUHAT (III  3S0 

WRITE(6.  I031FUI I I ) .FLTEMP.FUTEMP  3S 1 

103  FORMAT ( 1H  . 1 OX. J(E1 S .S.5X) ) 35 2 

IF ( FL  TEMP .NE .FUTEMP ) IF LG* I 3S3 

FHAT (11  1*FLTEMP  354 

FOLHAT ( I .11 J*FLTEMP  355 

300  FCUHATI  I.  IIJ*FUTEMP  356 

IF( IPOOL.EQ.l 1WR1TEI6.3S0I  357 

IF ( I POOL  .EQ.0IWRITE16.J5I I 358 

350  FORMAT ( 1H0./1 IX. • THE  BOUNDS  WERE  DETERMINED  USING  THE  UNIOM-CLUSTE  359 

• R PROCEDURE.*)  360 

351  FORMAT ( 1H0./1 IX. * T HE  BOUNOS  WERE  DETERMINED  USING  THE  MAXIMUM-CLUS  361 

•TER  PROCEDURE.*)  362 

IF( ICLGIB  ) 352 . 353 .353  363 

352  WR1TEI6. 66451  364 

6645  FORMAT! 1H0. /I  IX. 'ALL  ACTIVITY  DURATION  CONFIGURATIONS  WERE  C0NS1DE  365 
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•RED . • > 

366 

00  TO  500 

36  7 

353 

I F ( 1 POOL ) 35  7 . 35  7 , 358 

368 

350 

hf.nfclt.6C4  615AMi.12 

369 

6046 

FORMAT  1 1 HO  »/ 1 IX. ' ONLY  *,18.*  OF  THE  POSSIBLE  ACTIVITY  OURATION  CON 

370 

• FIGURATIONS  *fckfc  CONS  I DERED. • ) 

371 

I F ( ICLGIU.fcQ.0)WRIIfc!6.  105) 

372 

IF11CLG16.EQ.1 1WRITEI6.106) 

373 

GO  TO  500 

374 

357 

WRITE!6.6047)SAMS1Z 

375 

6047 

F CRM  A I ( 1H0./1 IX • 'ONLY  • .IS.1  CF  THE  POSSIBLE  ACTIVITY 

OURATION 

376 

•CONFIGURATIONS  FOR  EACH  CLUSTER  WERE  CONSIDERED.*) 

377 

IF ( ICLGIB.EU.O)  WRITEI6.10S) 

378 

IF(  lCLGIB.EO.il  WRITEI6.106) 

379 

105 

FORMAT! 1H0.10X.' SYSTEMATIC  SAMPLING  WAS  USED.*) 

380 

1 06 

FORMAT! 1H0. 10X. • SIMPLE  RANDOM  SAMPLING  WAS  USED.*) 

381 

500 

CONTINUE 

382 

C 

383 

c 

IF  THE  BEST  UPPER  AND  LOWER  BOUNDS  COMPUTEO  ABOVE  ARE 

EQUAL, 

384 

c 

THERE  IS  NO  NEED  TO  PERFORM  THE  EXTRAPOLATION 

3e5 

c 

386 

c 

I FLG  * 0 IMPLIES  THE  BOUNDS  ARE  EQUAL 

387 

c 

1FLG  * 1 IMPLIES  THE  BOUNDS  ARE  NOT  EQUAL 

388 

c 

389 

IF  ( IFLG.EC. 1 ) GO  TO  802 

390 

aoi 

WRITE (6.6031NSUB 

391 

803 

FORMAT ! 1H1 .5X .* THE  UPPER  AND  LOWER  BOUNDS  ON  THE  DISCRETE 

SUBNETWO 

392 

*RK  DURATION  DISTRIBUTION  ARE  EQUAL. * //6X ,* THUS  AN  ESTIMATE  OF  THE 

393 

• DISCRETE  OUR AT  1 ON  DISTRIBUTION  FOR  SUBNETWORK  *.14.*  IS*) 

394 

JECF  = 1 EOF 

395 

GC  TO  604 

396 

c**t  < 

39  7 

c 

398 

c 

SUBROUTINE  SIMPLX  INTERPOLATES  BETWEEN  TFE  UPPER  AND 

LOWER 

399 

c 

BOUNDS  DETERMINED  ABOVE  AND  COMPUTES  AN  ESTIMATED  COMPLETION 

400 

c 

TIME  DISTRIBUTION  FOR  THE  SUBNETWORK  BEING  CONSIDERED 

4 01 

c 

402 

C*  + *4 

403 

eo2 

CALL  SIMPLX 

404 

9 

JECF* IEDF 

4 05 

WRI TE (6. 107)NSUB 

406 

107 

FORMAT ! 1H1 ,5X. • AN  ESTIMATE  OF  THE  PISCRETE  OURATION  DISTRIBUTION  F 

407 

• OR  SUBNETWORK  M2) 

408 

804 

WRI TE i 6 . 1 06) 

409 

106 

FORMAT  1 1H0.14X. • T I ME  * . l6X.'OISTP t JUT  ION*/) 

4 10 

DO  9471  1*1. JEOF 

411 

9471 

WRITEI6. 103)FOi  1 ) .F  HAT ( I ) 

412 

3 

CCNT INUE 

413 

WRI  IE  IF  5 ) NSUB  . JEOF  . ( FD  ( 1 I.FHATd  ) ,1*1  .JEOF) 

414 

GC  TC  1 

415 

999 

WRITEI6.850) 

416 

eso 

FORMAT ! IH I ) 

417 

ENOFILt  F 5 

418 

STOP 

419 

END 

420 

SLEROUTINE  RDIJ.A.N) 

421 

DIMENSION  AIN) 

422 

READ  I J ) A 

423 

RE  TURN 

424 

ENO 

425 

SLBRGUTINE  INITAL 

426 
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C 427 

C INITIAL  DETERMINES  THE  CRITICAL  PATH  WHEN  EACH  4 2B 

C AC  TIVITY*S  DURATION  IS  ITS  MEAN,  LOMER  SOUND.  AND  UPPER  8CUND  429 

C 4 JO 

C 431 

IMPLICIT  RGAL48  I A-H< 0—2  I 432 

COMMON  /BLKA/CT IME.OTIME.M  433 

DIMENSION  CT I ME  ! OSOO  ) ,OTI ME ( OSOO I 434 

C..  ..........................  .......  435 

COMMON  /BLKB/IBB.KB.KKB.KKK  436 

C I ME  NS  ION  !Ua|50).KB!S0)  437 

C......  ..................  436 

CCMMCN  /BLKC/ICRITP.KCPB  439 

DIMENSION  ICRITP(SO)  440 

C ....  ...............  441 

CCMMCN  /BLKGZFD. ULEFD.LLEFO  442 

REAL46  F 0 ( 20) « ULEPD ( 20 ) , LLEFD! 20 ) 443 

C. 444 

COMMON  /BLKH/FH1 .FLO.PP.PC  445 

DIMENSION  FHI I SOO) .FLO! 500 ) .PPI500) .P0I500)  44b 

C.......  .......  447 

COMMON  /BLK1 2 I EOF . NSUB . SAMSI Z 446 

INTEGER  SAMS1Z  449 

C. ......... ............. ............  450 

CALL  ORDER  451 

T0TAL=CPT1 ME  < CPATHT ) 452 

CALL  FPATH  453 

C 454 

C ICRITP<L)=  THE  L-TH  ACTIVITY  ON  THE  CRITICAL  PATH  455 

C KCPB=  THE  NUMBER  OF  ACTIVITIES  ON  THE  CRITICAL  PATH  456 

C 457 

KCPB*KKB  458 

OC  2802  l-l.KCPB  459 

2602  ICRI TP(  I )=IUB! 1 ) 460 

X*TCTAL  461 

MR1TEI6.851)  X 462 

851  FORMAT! 1H0,5X.*THE  CRITICAL  PATH  TIME  MHEN  EACH  ACTIVITY**S  COMPLE  463 

• T I ON  TIME  IS  SET  EQUAL  TO  ITS  MEAN  IS  * *.015.51  464 

MR ITEI6.7606)  KKK  465 

7606  FCRMATC  IHO. lOX.'T HE  *.I3«*  NCDES  ON  THE  CRITICAL  PATH  ARE  AS  FOLLO  466 

4MS  BEGINNING  WITH  THE  TERMINAL  NODE:*)  467 

MR1TEI6.7707)  ( KB! I ) . I* I .KKK ) 468 

7707  FCRMAT I ISX.20I 13.* . • J ) 469 

MRITEI6.77I 0)  KKB  470 

7710  FORMAT! IHO. IOX.*THE  *,I3.*  CRITICAL  ACTIVITIES  ARE  AS  FOLLOMS  BEGI  471 

4NNING  Ml TH  THE  TERMINAL  ACTIVITY:*)  472 

MRITEI6.7707)  I I BB I 1 ) ■ I * 1 .KKB ) 473 

C 4 74 

fc  THE  COMPLETION  TIME  FOR  ALL  ACTIVITIES  IS  SET  TO  THEIR  LOMER  475 

C PERCENTILE.  THE  RESULTING  LONGEST  PATH  TIME  IS  A LOMER  476 

C BOUND  ON  THE  SUBNETmORK  OURATION  TIME.  477 

C 478 

OC  6402  1*1 .M  479 

6402  CT1MCII)  * FLO! I ) 460 

CPLB-CPTlMCiCPATHT)  481 

CALL  FPATH  482 

MR  I T E 1 6 ,6405 ) CPL8  463 

6405  FORMAT! IHO. 5X . • A LOoER  BOUND  ON  THE  SUBNETMORK  OURATION  TIME  IS  ■ 484 

6* .EIS.S)  485 

MR I TE 16 .8600 ) KKK  486 

6606  FORMAT! IHO. 10X.* THE  *.13.*  NODES  ON  THE  LONGEST  PATH  ARE  AS  FOLLCM  487 
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*5  BEGINNING  «ITH  I ML  T LH M 1 NAL  NODE:')  4B8 

■ PI  It  (6. 7707)  (K8II 1,1=1. KKK)  489 

■ PI  T E (6,8710  1 K.KU  490 

8710  FORMAT ( IMO, IOX . • THfc  *.IJ.*  ACTIVITIES  UN  THE  LONGEST  PATH  ARE  AS  F 491 

40LLLWS  BEGINNING  MITH  THE  TERMINAL  ACTIVITY:*)  492 

■ P I TE  I 6 • 7 70  7 1 ( IBB (I), 1=1, KKB I 493 

C 494 

C THE  COMPLETION  TIME  FOR  ALL  ACTIVITIES  IS  SET  TO  THEIR  UPPER  495 

C PERCENTILE,  THE  RESULTING  LONGEST  PATH  TIME  IS  AN  UPPER  BOUNO  496 

C CN  THE  SUBNETWORK  DURATION  TIME,  497 

C 498 

DO  6406  1=1. M 499 

6406  CTIMEIi)  * FHI(I)  500 

CPUB=CPTIME<CPATHTI  501 

CALL  FPATH  502 

■ P 1 TE I 6 « 6409 1 CPUS  503 

6409  FORMAT  I IH0.5X, *A  UPPER  BOUND  CN  THE  SUBNETWORK  DURATION  TIME  IS  = 504 

4 * , E 1 5 ,5  > 505 

■RITE(6«8606)  KKK  506 

■ RITEI6.7707)  ( KBI I I , I = l ,KKK 1 507 

■P 1 TE (6 .871 O)  KKB  508 

■ RITE  16, 77071  I IbB ( I 1 . 1 = 1 . KKB  I S09 

C 510 

C FD(l)  = THE  LOWER  BOUND  ON  THE  SUCNETWORK  OURATION  TIME  511 

C PLUS  THE  I-TH  FRACTION  OF  THE  OtSTANCE  TO  THE  UPPER  512 

C BOUNO  513 

C 514 

C FU  IS  USED  TO  BUILO  AN  'EMPIRICAL*  DISTRIBUTION  OF  THE  515 

C SUBNETWORK  DURATION  TIMES  516 

C 517 

C«CPUb— CPLB  sie 

CC=.BCO*C  519 

LEDF=.6D0*IEf»F  520 

CC=CC/LEDF  521 

00  6412  1=1. L EOF  5 22 

6412  FOI  1 l = CPLBM*CD  523 

C0« IC-CC l/l  IEDF-LEOF  ) 524 

1 I *LEOF ♦ 1 525 

C=CPLB*CC  526 

OC  6512  1=11, IEOF  527 

6512  FOI 1 > = C*I 1-LEDF 1 4CD  528 

RETURN  529 

ENO  530 

SUBROUTINE  ORDER  531 

C THIS  SUBRUUT 1 NE  DETERMINES  THE  ORDER  IN  WHICH  TO  CONSIDER  532 

C THE  ACTIVITIES  FOR  THE  CALCULATION  OF  THE  LONGEST  PATH  TIME  533 

C... 534 

implicit  real*b  ia-h.o-zi  535 

COMMON  /BLKA/CT IME.DT IME.M  536 

DIMENSION  CT I ME ( 0500),OT!ME( 0500  I 537 

C«. 538 

COMMON  /BL A A/XNDDE .TAIL, HEAD. ACRO. NMM  539 

INTEGER  AORD(500).TAILI500>,HEAOI500I  540 

DIMENSION  XNUDE1500)  541 

C .........................  542 

OIMENSIUN  NDI 500 1 ,NDO( 500  I 543 

C ......................  544 

N=NMM  545 

NDD I 11  = 1 546 

00  5 1=2. N 547 

5 NCC 1 11=0  548 
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do  6 I*1,M  54  9 

6 ACRO  <11  = 0 550 

*■0  551 

MP«M*1  552 

00  1 1 I - 1 t HP  553 

OC  20  !<1,N  554 

20  KQlIliNOOlII  555 

111  = 0 550 

I P*  I I ♦ 1 557 

00  2 J=1,M  558 

IFINCCTAILi  JM.NE.Il  ) GO  TO  2 550 

NCO(FEAD(J) ) = IP  560 

111=1  561 

IFIK.EO.O)  GO  TO  14  562 

00  1 0 L=1 .K  563 

IF (AQRC(L).EG.J)  GO  TO  11  564 

10  CONTINUE  565 

14  K=K*1  566 

GO  TO  13  567 

11  IF4L.EQ.K)  GO  TO  2 560 

XM=K— 1 569 

00  12  LL=L.KM  570 

12  AORD ILL  ) = AQRO  ( LL  + 1 I 571 

13  ACRC < X ) * J 572 

2 CONTINUE  573 

1F<11I<E0<0I  GO  TO  3 574 

1 CONTINUE  575 

3 CONTINUE  576 

»RITE(6.70)  577 

70  FORMAT! 1H1<5X<<THE  ORDER  IN  4HICH  TO  CONSIOER  THE  ACTIVITIES  TO  OE  570 

♦TEHM1NE  THE  LONGEST  PATH  TIME!*)  570 

NRITEI6.71)  580 

71  FORMAT!  IHOtlOXt*  ORDER  ACTIVITY*)  581 

OC  50  1=1. M 5e2 

50  »RITE<6.51)  I .AOROI I ) 583 

51  FORMAT  < 1 H . 1 OX . I 5 . 5X . I 5 ) 584 

RETURN  565 

END  586 

FUNCTION  CPTIME1CPATHT  ) 5e7 

OE  TERM INE  THE  CRITICAL  PATH  TIME l CPTIME  588 

XNOOEll)  = EARLIEST  TIME  THAT  AN  ACTIVITY  BEGINNING  AT  NODE  I 580 

CAN  COMMENCE  590 

591 

IMPLICIT  REALMS  (A-H.0-2)  592 

C . ....................  593 

CCMMON  /8LK A/CT I ME  « OT I ME . M 594 

0 I MENS  I ON  CTIME! 0500) .DT1ME< 0500)  595 

C. ......................... .........  596 

COMMON  /BLAA/XNOOE .TAIL. HEAD. ACRD. NMM  597 

INTEGER  AOR  01 500).TAIL(500). HE AO ( 500 ) 598 

DIMENSION  XNOOE(SOO)  599 

C..  ......  .........  .............  600 

OC  I 1=1. NMM  601 

1 XNOOE ( I ) =0. 00  602 

00  2 11=1. M 603 

1 a ACRO III)  604 

2 XNOOE (HEAD! I ) > = OMAX 1 < XNOOE ( T A IL < I ) ) ACT  1 ME  1 1 ) .XNOOE (HEAD! I ) ) ) 605 

I a HE  AO 1 ACRO( M ) ) 606 

CR  T I ME= XNOOE! I ) 607 

RETURN  608 

ENO  609 
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FLNCTICN  CLT  IMEI  CPAT  FT  ) 610 

C CETtMUINl  rut  CRITICAL  PA  T H TIME:  CLT  I ME  611 

C XNOOE(I)  - EARLIEST  TIME  THAT  AN  ACTIVITY  BEGINNING  AT  NODE  I 612 

C CAN  COMMENCE  61 J 

C 614 

IMPLICIT  REAl*B  (A-MiO-ZI  615 

C . ............  616 

COMMON  /BLKA/CT I ME , DTI  ME ,M  617 

O I MENS  1 ON  CTIMEIOSOOI.OTIMEIOSOOI  616 

C ...............  619 

COMMON  /BLAA/XNODc. TAIL. HEAD. AOHO.NMM  620 

INTEGER  ACRU(SOO) . T A IL ( 500 » . HE AO  I 500 1 621 

C1MENSIGN  XNoOEISOOl  622 

C 6 23 

00  1 1=1. NMM  624 

1 XNOOE ( I 1=0.00  625 

CU  2 11=1 .M  626 

I=ACRC(II)  627 

2 XNOOE  ( HE  AOI  1 ) 1 = 0 MAXI  I XNOOE  (TAIL  I ll)FCTIME(l)  .XNOOE  (HEAD!  1)1)  626 

I=HEAC ( AOHOCM ) ) 629 

CL  T I ME  = XNOOE ( 1 i 630 

RETORN  631 

END  632 

SOBRCUTINE  (PATH  633 

C 634 

SUBROUTINE  E PATH  FINOS  THE  CRITICAL  PATH  635 

636 

637 

IMPLICIT  REAL**  (A-H.0-2)  636 

COMMON  /BLKA/CT IME.OTIME.M  639 

DIMENSION  C T 1 ME (0500) *0T IMEI0500)  640 

C . 641 

COMMON  /BLAA/XNOOE.T A1L.HEA0. AORO.NMM  642 

INTEGER  AOROISOO) . TAIL (500) .HEAOI500 ) 643 

DIMENSION  XNOOE ( 500 ) 644 

645 

COMMON  /BLKB/IBO.KB.KKB.KKK  646 

DIMENSION  lUU(SO) «Kdl 50 ) 647 

646 

C 64  9 

C KKK=  THE  NUMBER  OF  NOOES  CN  THE  CRITICAL  PATH  650 

C KB(L)»  THE  L-TH  NODE  IN  THE  CRITICAL  PATH.  COUNTING  BACK  W ARDS  65  1 

C FROM  THE  TERMINAL  NODE  6*2 

C KKtl=  THE  NUMBER  OF  ACTIVITIES  ON  THE  CRITICAL  PATH  653 

C I BB (L ) * THE  L-TH  ACTIVITY  ON  THE  CRITICAL  PATH,  COUNTING  654 

C BACKWARDS  FROM  THE  TERMINAL  NODE  65S 

C 656 

C 657 

C THE  FOLLOWING  STATEMENTS  OE  TERM I NE  THE  NOOES  ANO  ACTIVITIES  ON  656 

C THE  CRITICAL  PATH  659 

C 660 

KKK=1  661 

KB(1)=NMM  662 

63001  I K=KB ( KKK  > 663 

SMIN=999999.  664 

I SM 1N=0  665 

00  63000  1=1. M 666 

IF (HEAD!  I I .NE. IK  I GO  TO  63000  667 

SL AC K= XNOOE I HE AOI I ) 1 - XNOOE ( T A IL ( I ) 1— C TIME!  I ) 666 

IF ( SLACK. GE . SMI N ) GO  TO  83000  669 

SM IN  = SL  ACK  670 
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IS»IS*I  671 

03000  CONTINUE  672 

03003  IBBI KKK )* ISM  IN  673 

KKK>HKK»I  674 

KBIKKK)*TA1LI 1SMIN)  675 

IFITAIL1 ISM1n).GT.1 ) GO  TO  83001  676 

KKB=KKK-l  677 

RETURN  678 

ENO  679 

SUBROUTINE  FINOF  68.0 

C 681 

C SUBRUOTINE  FINOF  EVALUATES  THE  SUBNETWORK'S  OISCRETE  DURATION  682 

C DISTRIBUTION  BY  EXPLICITLY  EVALUATING  ALL  OF  THE  SUBNETWORK'S  683 

C ACTIVITY  DURATION  CONFIGURATIONS  664 

C 665 

C..  ............................  666 

IMPLICIT  REAL48I A-H.O-Z)  687 

COMMON  /BLKA/CT I ME. OT I ME • M 668 

DIMENSION  CTIMEI 0500). DTI ME  I 05001  68V 

C • . • . 690 

COMMON  /BLKE/INCLUS.NINCL.NCLUS  691 

DIMENSION  HINLLISO) . INCLUSI 50.100)  692 

C .....  .........  693 

COMMON  /BLKG/FO. ULEFO . LLEF  D 694 

REAL48  F0I20) .ULEFOI 20  I.LLEFDI 20  I 695 

C..  . ...............  696 

COMMON  /BLK 1 / I EOF «N SUB  » SAMS I Z 697 

INTEGER  SAM  S I Z 698 

C.  .......................  699 

COMMON  /bLKK/IR.IB  700 

C 701 

COMMON  /BLKS/SUM. ICLGIB  702 

C....  .....A.  ............  .......  703 

COMMON  /BLK Y/FDUHAT • F CL  HAT  «F  HA  T 704 

DIMENSION  FULHAT ( 3.20) .FDUHAT (3.20) .FHAT ( 20)  705 

C... ....................... .........  706 

I R 3 I 707 

C444444**** •*•**♦•**• «**••**••»*«*«*•«••* ***•*••**•*••**••*» •***•••»••»•  706 

C 7 09 

C FORM  A CLUSTER  CONTAINING  ALL  OF  THE  ACTIVITIES  IN  THE  710 

C SUBNETWORK  711 

C 712 

CW4W4W4* •**«*•••***••••*•*•**• *****4****** *»•»*«*•***» •••*••*• •*•••**»**  713 

N 1 NCLi 1 ) SM  714 

00  ISOI  1*1 .M  715 

1501  INCLUSI I . I >*I  716 

00  7101  1*1*1 EOF  717 

7101  LLEFOI I ) *0.00  716 

I B*2  4 4M  719 

'••••• »»•••»•****•*••*** *•*•*•*•*•*•**** *****»••• • *4*4 •••••444 44  720 

721 

CALL  EXACTF  722 

723 

••4*44**4****4*4»4*44** ••»•*••••*••**•••*• .4444 **«*•»*•**  724 

FFATI 1 )*LLEF01 I ) /SUM  725 

00  6900  1*2*1  EOF  726 

11*1-1  727 

LLEFOI I )*LLEFOI  I I )+LLEFD( I 1 728 

FFATI  I )*LLEFOI 1 I/SUM  729 

6900  CONTINUE  730 

WRITE  16.6362)  731 
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6362  FCRMAI  ( A H 1 1 73 2 

WRITE (6. 100)  N5U8  733 

100  FORMAT ( 1H 1 . bX . • T HE  DISCRETE  DURATION  DISTRIBUTION  FOR  SUBNETWORK  734 

••.121  735 

WRITEI6.101)  736 

101  FORMAT ( AMO. J4X. ‘TIME* .16X. •DISTRIBUTION'/)  737 

00  102  I — 1 . 1 EOF  736 

102  WR  1 T L ( 6 • 1 03 ) FO(  I ) ,FHAT I I ) 739 

103  FORMAT ( IH  . 10X . 2( E 1 5.5.5X) ) 740 

RETURN  741 

END  742 

SUBROUTINE  EXACTF  743 

C 744 

C SUBROUTINE  EXACTF  DETERMINES  THE  EMPIRICAL  DISTRIBUTION  74b 

C FUNCTION  FUR  THE  SUBNETWORK  DURATIONS  CORRESPONDING  TO  ALL  746 

C POSSIBLE  ACTIVITY  DURATION  CONFIGURATIONS  747 

C 746 

IMPLICIT  REAL*B( A-H.O-Z)  749 

C ...........  750 

COMMON  /BLKE/1NCLUS.NINCL.NCLUS  751 

0 1 MENS IUN  NINCLI 50 ) . INCLUSI50. 100)  752 

C.  ......  ...A.... ...... .......  753 

COMMON  /BLKG/FD. ULEFO.LLEFD  754 

RE  AL • 8 FCI20),ULEFD(20).LLEFD(20)  755 

756 

COMMON  /BLKK/IR.IB  757 

756 

COMMON  /BLKS/SUM. ICLGIB  759 

C 760 

IJ=0  761 

N I 0=  0 762 

K J = N I NCL I I R ) 763 

SUM=  C . D 0 764 

2001  MB=nIB»I  765 

IF  INIB.GT.I8)  GO  TO  2000  766 

CALL  CCNVRT INIB. I J.KJ. SPROB ) 767 

XL  = CL  T I ME  I CP AT  HT ) 768 

X = XL— 1 .0—10  769 

1*0  770 

6420  1=141  771 

1FIX.GT . F 0 < I ) ) GO  TO  6420  772 

LLEFD(I)  = LLEFOII)  ♦ SPROB  773 

SUM=SUM4SPR0B  774 

GC  TO  2001  775 

2000  CONTINUE  776 

N I B=N 18-1  777 

RETURN  778 

END  779 

SUBROUTINE  CLUSTR  780 

C 781 

C SUBROUTINE  CLUSTER  DETERMINES  THE  CLUSTER  FOR  GIVEN  THETA  AND  782 

C LAMBDA  783 

C 784 

785 

IMPLICIT  REALMS  (A-H.O-Z)  786 

COMMON  /BLKA/CT IME.DT IME.M  787 

DIMENSION  CTIMEI 0500) .DTIME(0500)  788 

C.. ................ ......  ...  789 

COMMON  /BLKB/IBB.KB.KKB.KKK  790 

DIMENSION  IUB(50).KB(50)  791 

C.  ........................  792 
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CCMMUN  /BLKC/ICR  1TP.KCPB 
0 .1  ME  NS  ION  ICRITPC50) 


COHHCN  /BLKO/SlGMA.COT 
O • MENS  I ON  COTC500)  .SIGMACSOO) 

c 

CCMMCN  /BLXE/INCLUS.MNCL.  NCLUS 
DIMENSION  NINCLC  50  > . ( NCLUS ( 50 • 1001 

c 

COMMON  7BLKJ/THETA. LAMBDA 
REAL*b  LAMBDA. THETA 

C... 

OIMENSION  LEFT ( 500 1 . L EF TO C 500 1 , NONCP ( 500 ) .M NAG ( 5001 
I NTEGER  AS 5 GPP (50.501 .CL  I NCL (50.50) .E GRP (SO ) . NCL INC( 50  I 

C.  .........................  ........ 

c 

C THE  ASSOCIATE  GROUPS  ARE  NCW  FORMED 

C 

MR  I TE< 6.3 165) LAMBDA 

3165  FORMAT ( 1H1 ,5X, • THE  ASSOCIATES  ARE  NO  to  IDENTIFIED  FOR  LAMBDA  = •, 

•E15.5) 

III1I-1 
OC  2825  1=1, M 
2625  CT IME I I )=COT( I ) 

I MM=0= ICR  I TP ( 1) 

2801  CONTINUE 

22t2 5 Cl  IME(  IMWWC)=COT(  I M W WO ) 

I»»»0=  ICRITPI  mill 

TEX=COT ( 1 WWW0)-LAM80A*S IGMA< IWWWQ) 

IF(TEX.LT.O.DO)TEX=O.DO 
CT IME(  I M W WO ) = TEX 
OUMMV  = CPT I ME( CPA  THT ) 

CALL  FPATH 
C 

C DETERMINE  ASSOCIATE  GROUP 

C 

2910  N IN  A G ( I till  ) = 0 
OC  2911  K=l «KKU 


( 


KK  = 1 

2913  IF ( IHBCK ).EQ. ICRITPI KK) > GO  TO  2911 
IF (KK.GE.KCPB)  GO  TO  2912 
KK.KK4 1 
GO  TO  2913 

2912  NINAGI I 1 I 1 1 ) = N1NAG(  I I I I I ) ♦! 

ASSGRPC  till 1.N1NAGI  IIIII  ) 1 = I BBC K ) 

2911  CONTINUE 

■ RITE (6. 291 5)  I I I I I . ICR  I TP ( I I I I I I .NINAGI  I I 1 1 I) 

2915  FORMAT ( 1H0.1 OX . • THE  NUMBER  OF  ASSOCIATES  ASSOCIATED  WITH  THE  '.13. 
••-TH  CRITICAL  PATH  ACTIVITY.  I.E.  ACTIVITY  *.I3,*.  IS  = *.13) 

ICUCK*NINAG( I II  I I 1 

IF ( I OUCK.EO.O)  GO  TO  2810 

MR  I TE (6, 2916)  I ASSGRPC  I 1 I I I . I ).  1 = 1, I DUCK  ) 

2916  FORMAT ( 1H0 .15X . 'THE  ACTIVITIES  IN  THE  ASSOCIATE  GROUP  ARE  AS  FOLLO 
•MS* ./. 15X.50C 13. • . • I > 

2610  11111*11111*1 

IFC  I III  1 .LE  .KCPb ) GO  TO  2601 

C 

C DETERMINE  THE  CLUSTERS 

C 

C THE  CLUSTERS  ARE  POOLED  TOWARD  THE  TERMINAL  NOOE 

C NCLUS  « THE  NUMBER  OF  NON-EMPTY  CLUSTERS 


79  3 

794 

795 

796 

797 

798 

799 
BOO 

80  1 
802 

803 

804 

805 

806 

807 

808 

809 

810 
61  l 
812 
813 
8 I 4 
815 
6 16 
6 l 7 
81  8 
8 19 
820 
821 
822 

823 

824 

825 

826 
82  7 
828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 
84  1 

842 

843 

844 

845 
840 
847 
84  8 
849 
650 

851 

852 

853 


C N 1 NCL I I ) = THE  NUMBER  OF  ACTIVITIES  IN  THE  I-TH  CLUSTER  654 

C INCLUSI I. J)  = THE  J-TH  ACTIVITY  IN  THE  I-TH  CLUSTER  855 

C NCLINC(I)  = THE  NUMBER  OF  CLUSTERS  COMPRISING  THE  I-TH  856 

C CLUSTER  AFTER  POOLING  857 

C CLINCL(I.J)  = THE  J-TH  CLUSTER  WHICH  HAS  BEEN  POOLED  INTO  358 

C THE  I-TH  CLUSTER  859 

C 860 

C NCL I NC  ANU  CLINCL  HELP  KEEP  TRACK  OF  WHICH  CLUSTER  THE  861 

C CRITICAL  PATH  ACTIVITIES  ARE  IN  862 

C 863 

C 864 

C BELOW  FORMS  CLUSTERS  BY  PUTTING  EACH  CRITICAL  PATH  ACTIVITY  IN  865 

C SEPARATE  CLUSTER  AND  THEN  AOOING  EACH  CRITICAL  PATH  ACTIVITY'S  866 

C ASSOCIATES  TO  ITS  CLUSTER  867 

C 868 

NCLUS— KCPB  869 

OO  3020  I =1. KCPB  870 

NCL I NC I I ) c 1 871 

CL INCLI I . 1 ) =1  872 

N 1 NCL III  =NlNAGIl)+l  873 

1NCLLSI I »1J=ICRITP< I ) 874 

IFININAGI  I I .EO.O  ) GO  TO  3020  875 

IOUCK=NI  NCLII  > 876 

DO  3021  J = 2 * I OUC K 677 

JJ=J-I  878 

3021  I NCLUS ( I • J ) =A  SSGRP ( I • J J ) 879 

3020  CONTINUE  880 

C 861 

C BELCW  POOLS  CLUSTERS  FORMED  FROM  ASSOCIATES  882 

C 883 

I A=  0 864 

3031  IA=IA+l  885 

IF  I IA*GE«KCPB)  GO  TO  3030  886 

IFINCLUS.EQ.l 1 GO  TO  3030  887 

IDIA  = N1NCH  I A)  888 

IF( IOIA.EO.O)  GO  TO  3031  889 

1AA=!A«1  890 

00  3023  1 I — 1 A A • KCPB  89  1 

1 0 I I =N I NCL ( I 1 I 692 

IFI ICI I .EO.O)  GO  TO  3023  893 

00  3025  I— l«I01A  894 

CO  3025  J=1.I0II  895 

IF  I INCLUSI l I . J) .EU. INCLUSI IA. I ) ) GO  TO  3027  896 

3025  CONTINUE  897 

GC  TO  3023  898 

3027  NCLU  S=NCL  US— 1 899 

00  3028  J— 1«1DII  900 

OC  3029  I — 1 « 1 Dl A 901 

IFI INCLUSI II. Jl .EO. INCLUSI IA. I ) I GO  TO  3028  902 

3029  CONTINUE  903 

NINCL1I AI=N|NCL( IAIF1  904 

INCLUSI  IA.NINCLI  IA)  ) = I NCLUS I I I . J ) 905 

3028  CONTINUE  906 

R I NCL I I I )=0  907 

NCLINCt  IAI« NCL I NC 1 I A ) F i 908 

CLINCLI  IA.NCL1NC1 IA)  ) * II  909 

NCL I NC I I 1 ) *0  910 

3023  CONTINUE  911 

GC  TC  3031  912 

3030  CONTINUE  913 

C 914 
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BEL  C « DESCRIBES  CLUSTERS  AFTER  POOLING  BASED  ON  THE  ASSOCIATES  VIS 

916 

•RITEI6. 30331  NCLUS  VI 7 

3033  FORMAT  I 1 HC./6X.  • THERE  ARE  M3,'  NONEMPTY  CLUSTERS  AFTER  POOLING  C VI8 

•N  THE  BASIS  OF  ASSOCIATES  ONLY.*)  919 

11=0  920 

DO  3034  1*1*  KCPB  9? 1 

IFINlNCLl II.EQ.O)  GO  TO  3034  922 

11*11+1  923 

IOUCJ*MNCL(  I ) 924 

WRITEI6.3035)  I • I I NCLUS ( I . 3 1 . J* 1 . I DUC3 ) 92S 

3035  FORMAT ( 1M0. 10*, *TME  ACTIVITIES  IN  THE  *,I3.*-TH  CLUSTER  ARE  AS  FOL  926 

»LC»S: • ./ .15*. SOI  13. * . ' ) ) 927 

3034  CONTINUE  920 

OC  3101  1*1. M 929 

LEFT ( I ) *0  V30 

00  3102  J=:.KCPB  931 

IFINlNCLl JJ.fcU.O)  GO  TO  3102  932 

ICUCK*NINCL( J ) 933 

CO  J110  K* 1.1  DUCK  934 

IF  I I .EG. INCLUSI J.K)  ) GO  TO  3107  935 

3110  CCNTINLE  936 

3102  CONTINUE  937 

GO  TO  3101  936 

3107  LEFT(I)*J  939 

3101  CONTINUE  940 

C 94 1 

C LEFTOVERS  ARE  ACTIVITIES  NOT  IN  CLUSTERS  AFTER  ASSOCIATES  HAVE  942 

C BEEN  CONSIDERED  BUT  BEFORE  ELIMINANTS  HAVE  BEEN  CONSIDERED  943 

C 944 

C 945 

C DETERMINE  THE  NUMBER  OF  LEFTOVERS.  NLEFT  946 

C LEF TOIL)  * J IMPLIES  THAT  THE  L-TH  LEFTOVER  IS  THE  J-TH  947 

C ACTIVITY  946 

C 949 

NLEFT  *0  950 

DO  3122  J=1.M  951 

IFILEFTI  JI.NE.O)  GO  TO  3122  952 

NLEFT*NLEFT+1  953 

LEF  TO I NLEF  T ) * J 954 

3122  CC  NT  1 NOE  955 

WRITEI6.3123)  NLEFT  956 

3123  FORMAT  1IH0.I0X.*  THERE  ARE  *.13.*  ACTIVITIES  NOT  IN  ANY  CLUSTER  YE  957 

*T. • ) 958 

*RITE(6.3323)THETA  959 

3323  FORMAT (1H1 ,SX. • THE  ELIMINANTS  OF  EACH  NON-CR IT ICAL-PATH  ACTIVITY  A 960 

♦RE  NOW  DETERMINED  FOR  THETA  * *.E15.S>  961 

C 962 

C ELIMINANTS  FOR  EACH  NCN-CR1 T ICAL-PATH  ACTIVITY  ARE  NOW  963 

C DETERMINED  964 

C NNNCP  * THE  NUMBER  OF  ACTIVITIES  NOT  ON  THE  CRITICAL  PATH  965 

C NONCPILE)  * THE  LE-TH  ACTIVITY  NOT  ON  THE  CRITICAL  PATH  966 

C 967 

NNNCPbM-KCPU  960 

LE*0  969 

DO  5000  1*1. M 970 

J-l  971 

5001  IF  I I .EO.ICRITP(J) ) GC  TO  5000  972 

J*J+1  973 

IFIJ.LE.KCPU)  GO  TO  5001  974 

LE*LE+1  975 


5002 
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NCNCP(Lt l-I 

9 76 

5000 

tlMIHt 

977 

»R  ITE(6.5005)  NNNCP 

9 78 

500b 

F LRM a 1 ( 1 HU. 1 0* . • I MtHL  ARE  *.13.*  ACTIVITIES  NOT  CN  THE  CRITICAL  PA 

979 

• IH.  THEY  APE  AS  FOLLOWS:*! 

980 

IF (NNNCP.EO.OI  GO  TO  3124 

981 

00  5006  1*1 iLt 

982 

5006 

■ P 1 IE ( 6 .50071  I.NUNCP(I) 

oea 

500  7 

FCRMAM1H  .I5X.I3.'.  ' • 13 ) 

984 

L E * 0 

985 

JUt 

i E*L  E ♦ 1 

986 

<_  1 1 ME  < J * MkO  1 * COTlIfcMNO) 

987 

CT IME 1NONCP1LEI 1 * CCT (NONCPILEI > ♦ T HE T A*S I GMA ( NONCP (LE ) ) 

988 

7 756 

ItaftU  * NCNCP1LEI 

989 

UOMMtiCPT IMLICPATHT  » 

990 

CALL  FPATF 

99  1 

3121 

COM  INOE 

992 

C 

993 

c 

OLTEPMINE  i HE  ELI  Ml NANTS  OF  THE  LE-TH  ACTIVITY  NOT  ON  THE 

994 

c 

CRITICAL  PATH 

995 

c 

Nt  = THE  NUMBER  OF  EL  I M I N ANT S FOR  THE  LE-TH 

996 

c 

ACTIVITY  NOT  ON  THE  CRITICAL  PATH 

997 

c 

EGRP(J)  = THE  J-TH  EL  1 M 1 N ANT  FOR  THE  LE-TH  ACTIVITY 

998 

c 

NOT  ON  THE  CRITICAL  PATH 

999 

c 

1000 

NE  * 0 

100  1 

DO  3130  K*1 .KCPU 

1002 

00  3131  1*1. KKU 

1003 

IF  ( 1110(  1 1 .EQ.  ICRI  IPtKll  GO  TO  3130 

1004 

3131 

CONTINUE 

1005 

NE  *NE ♦ 1 

1 006 

E GRP (NCI* ICRI TP(K 1 

1 007 

3130 

CCNI 1NUE 

1008 

WR1TE(6. 31331  NE.NUNCP(LE) 

1 009 

3133 

FORMAT  1 1H0. 10X, • THERE  ARE  *,I3.*  EL  1 M INANTS  CORRESPONDING  TO  ACTIV 

1010 

• ITY  *.13) 

103  1 

IF(NE.EO.O)  GO  TO  3171 

1012 

00  3135  K*l .NE 

1013 

3135 

MRITE(6.313o)  K .NONCP (LE 1 .EGRP(K) 

1014 

3136 

FORMAT ( 1 H • 1 4X . ' T HE  • • I 3 • • — T H EL  1 M I N ANT  CORRESPONDING  TO  ACTIVITY 

1015 

• • • I3» • IS  ACTIVITY  • . 1 3 I 

10  16 

C 

1017 

C 

OtlERMlNL  MHETHER  NONCP(LE)  IS  AN  ASSOCIATE 

1018 

c 

JA  * 1 IF  NGNCP(LE)  IS  AN  ASSOCIATE 

1019 

c 

JA  * 2 IF  NONCP (LEI  IS  NOT  AN  ASSOCIATE 

1020 

c 

1021 

t 

K*NCNCP(LE> 

1022 

JA*  1 

1023 

I F (LEFT  (K  ) .EC1.0  1 JA*2 

1024 

IF ( JA.E0.2 ) GO  TO  5010 

1025 

c 

1 T *LEF  T ( K I 

1 026 
1 027 

c 

c 

THE  IT-TH  CLUSTER  IS  EXPANDED  TO  INCLUDE  EL I M I NANTS 

1028 

1029 

GO  TO  5011 

1030 

■ 5010 

CONTINUE 

1031 

c 

1032 

c 

ITTTT  IS  THE  ACTIVITY  NUMDER  OF  THE  FIRST  ELIMINANT 

1033 

c 

IT  IS  THE  CLUSTER  TO  MHICH  THE  FIRST  ELIMINANT  CURRENTLY  BELONG 

1034 

c 

ITTT*EGRP( 1 1 

1035 
1 036 

IITT*EGRP(  1 I 
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I I*LEFTC  ITTT  ) 1037 

LEFT! NONCP  CLE I ) « I T 1036 

1030 

THE  IT-TH  CLUSTER  IS  EXPANDED  TO  INCLUDE  ELIMINANTS  1040 

104  1 

N1NCL ( IT 1-NINCL1  IT  1 41  1042 

INCLUSC IT.NINCLC 1T1 )=NONCPCLE>  1043 

IF(NE.EO.I)  GO  TO  3171  1044 

5011  DO  3172  JcJA.NE  1045 

C 1 046 

C I U IS  THE  ACT  I VI T V NUMBER  CF  THE  NEXT  EL1MINANT  1047 

C IF  IU  IS  IN  CLUSTER  K.  THEN  CLUSTER  K IS  POOLED  INTO  CLUSTER  IT  1046 

C 1049 

IU*EGRPCJ>  1050 

K»LEFTC1U>  1051 

3182  1FCIT.EQ.K)  GO  TO  3172  1062 

NCLUS*NCLUS— 1 1053 

IWsNCLINCCK)  1054 

DO  3183  1A=I.IW  1055 

LEFT ( ICRITPICLINCLIK. IAI I 1*1 T 1066 

NCL INC! 1 T ) sNCLlNCC 1 T ) ♦ I 1057 

3163  CL  I NCL l I T • NCL 1 NC I IT ) ) = C L I NCL C K < 1 A ) 1066 

NCL 1 NC ( K ) *0  1069 

IW^NINCLCK)  1060 

N 1 NCL 1 K 1 *0  1061 

DO  3164  IAcI.IM  1062 

LEFT ( INCLUS1K, IA I )■  I T 1063 

N1NCL 1 1 T )=NINCLC 1 T1 ♦ 1 1064 

3184  1 NCL US ( 1 T • N 1 NCL C I T ) ) z I NCL US ( K . I A ) 1065 

3172  CCNTINUE  1066 

3171  CONTINUE  1067 

IFCLE.LT .NNNCP)  GO  TO  3126  1066 

C 1069 

C END  OF  POOLING  BASED  ON  ELIMINANTS  EXCEPT  FOR  THE  FOLLOWING  1070 

C DESCRIPTION  1071 

C 1072 

WRITEI6.31 73)  NCLUS  1073 

3173  FORMAT! 1H1 ,05X.' THERE  ARE  *.13.*  NONEMPTY  CLUSTERS  AFTER  POOLING  O 1074 

•N  THE  BASIS  OF  BOTH  ASSOCIATES  ANO  ELIMINANTS.')  1075 

00  3176  l*I.KCPB  1076 

I F C N I N CL  < 1 ) . E 0 . 0 ) GO  TO  3176  1077 

1 DD  = N 1 NCL  Cl)  1078 

WRITEC6.3I74)  N I NCL ( 1 ) . I • < INCLUSC 1 . J ) . J* 1 • 1 DO ) 1079 

3174  FORMAT C 1H0. 10X. • THERE  ARE  '.13.'  ACTIVITIES  IN  THE  '.13. '-TH  CLUST  1060 

4ER.  THEY  ARE  AS  F OLLOWS  1 • ./ «20X . 50 C I 3. • . • ) > 1061 

1 DUCK > NCL INC ( I ) 1062 

WRI TEC6.3I75)  NCL I NC C I ) • C CL  I NCL C I • J ) • J* 1 • IDUCK ) 1083 

3175  FCRMATC1 HO .15X.I3.'  CLUSTERS  HAVE  BEEN  POOLED  TO  MAKE  THIS  CLUSTER  1064 

4.  THEY  WERE  AS  F OLLCW S i • . ✓ . 2 OX . 50 C I 3 . • • • ) ) 1065 

3176  CONTINUE  1066 

3124  CCNTINUE  1067 

RETURN  1068 

END  1069 

SUBROUTINE  UNION  1090 

C 1091 

C UNION  DETERMINES  UPPER  ANO  LCWER  BOUNDS  ON  1092 

C THE  DISTRIBUTION  FUNCTION  CF  THE  SUBNETWORK  DURATION  1093 

C BASED  ON  THE  UNION  CF  THE  CLUSTERS  1094 

C 1095 

IMPLICIT  REAL48C A-H.D-Z  ) 1096 

C.  .................  .................  1097 
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CUMMLN  /ttLKA/U  IME.OTIMC.M 
dimension  ct imec  osoo  > .dt  ime < osoo ) 
c 

CCMMCN  /ULKC/  ICR  1 rP.KU'b 
OIMENSIUN  ICRiTP(SO) 

c 

CCMMCJN  /ULKE/1NCLUS.MNCL.NCLUS 
0 1*1  NS (ON  NINCLI50) . INCLUSI50.100) 



COMMON  /eLKG/FD.ULEFO.LLEFD 
NEAL* U FD(20  ) .ULEFQI 20 ) . LLEF O ( 20 > 

C . 

CLMMON  /ULKH/FMl  .FLD.PP.PO 

L I ML  NS  I ON  FHI (500) .FLO( SOO  ». PP (500 ) .PG(500) 

c 

COMMON  /bLNl/IEOF.NSUd. SAMSIZ 
1NIEGEK  SAMSIZ 

C..  ..........................  ...... 

CCMMCN  /ULKX/1H.1U 

C 

C CMMUN  /fiLKL/FLMAT , FUHAT 
DIMENSION  FLHAT(20> .FUHATI20 I 

C...... 

COMMON  /HI  KS/SUM.  ICLGIU 

C . . . . 

IF (NCLUS.GT.l ) GO  TO  6000 
1*0 

6001  1*1*1 

IF(N1NCL(  D.EU.O)  GO  TO  6001 
NCL  * 1 

GO  TO  600? 

C •••*•*** »*»••»•»•*•*•••**»*************••••** *444 ******************* 

C 

C POOL  ALL  OF  THE  PREVIOUS  CLUSTERS  INTO  ONE  CLUSTER 

C NCL  * THE  INDEX  OF  THE  RESULTANT  POOLED  CLUSTER 

C NNCL  = THE  NUMBER  OF  ACTIVITIES  IN  THIS  PCCLEO  CLUSTER 

C 

C 44444 *4 4* 4* *44 44 4444 444 44 444 44444 444 44444 4444 444 4 4 444 44444444 44444441 

6000  NM AX  = O 

DO  6003  1*1  « KCPE1 

IF (NINCLl 1 1.LE.NMAX1  GO  TO  600J 
NCL  * I 

NM AX* M NCL ( I 1 

6003  CONTINUE 

DC  6004  I*1.KCPU 
I F ( N I NCL (ll.EO.O)  GO  TO  6004 
1FU.E0.NCL)  GO  TO  6004 
K*M  NCL  (NCL) 

JJ*NINCL(  I > 

N 1 NCL ( I ) *0 
DO  6005  J* 1 . J J 
K*K*  1 

6005  I NCLGSI NCL «K) *1NCLUS( 1 • J) 

M NCL  (NCL  )«MNCL(NCL  )*JJ 

6004  CONTINUE 

600?  NNCL  = M NCL ( NCL ) 

c 

C I CL  GIB  * -1  IF  ALL  CONFIGURATIONS  ARE  TO  QE  SAMPLED 

C ICLGIU  *0  IF  SAMSIZ  CONFIGURATIONS  ARE  TO  HE  SAMPLEO  USING 

C STHATIFIEO  RANOCM  SAMPLING 

C ICLGIU  * 1 IF  SAMSIZ  CONFIGURATIONS  ARE  TO  HE  SAMPLED  USING 


1 0GB 
1000 
1100 
1101 
I 10? 
1 1 03 
1 104 
I 105 
1 1 06 
1107 
UOS 
1 100 
I 1 10 
till 
1 1 1? 

1113 

1114 

1115 
I 1 16 
1117 
1 1 IB 
1110 
I 1?0 
1 1?1 
1 I?? 
1 I ? 3 
1 124 
1 125 
1 126 
1127 
I 1 ?e 
1 120 
1 130 
1131 
I 1 3? 
1 133 
1 134 
1 I 35 
I I 36 
1 137 
1 I 38 
I 1 30 
1 1 40 
1141 
1 142 
1 1 43 
1 1 44 
1 145 
1 146 
1147 
I 148 
I I 40 
1150 
I 151 
1 152 
I 153 
1 1 54 
1 155 
I 156 
I 157 
I 158 
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SIMPLE  RANDOM  SAMPLING  It S9 

1160 

IFINNCL.LT.311  GO  TO  I 1161 

ICLG 1 fa= 1 1162 

GO  TO  2 1163 

1 0=2**NNCL  1164 

ICLG I B=- 1 116b 

IFISAMSIZ.LT. IB1  ICLG I 6*0  1166 

CONTINUE  1167 

IR=NCL  1168 

•*•*••«** ««**»4****** ************************ ******* »*•*•• ****** •*«•***  x i69 

1 1 70 

SET  ALL  ACTIVITITV  DURATIONS  OUTSIDE  THE  IR-TH  CLUSTER:  1171 

DISTRIBUTION  1172 

CTIMEI  > = UPPER  POINT  FOR  LOWER  BOUNC  ON  SUBNETWORK  DURATION  1173 

OTIMEI  } = LOWER  POINT  FOR  UPPER  BOUND  ON  SUBNETWORK  DURATION  1174 

DISTRIBUTION  1175 

1 1 76 

•••*• ***•*••**•«, ********* *** ****•*•«* **************** **** *******  11/7 

DO  6006  1=1 . M 1178 

OT  IMEI  I l=FLO<  II  1179 

006  CTIMEI l)=FHI( I)  1160 

00  710  1 1 = 1.1  EOF  nei 

ULEFCI 1 1=0.00  1162 

101  LLEFDI I )*0.00  1163 

•*••••*••••••*•* ••*•»**•** 4* *4 *************** ***••**• ******** ••• 1 164 

lias 

CALL  BCUNO  1186 

1 187 

SUBROUTINE  BOUND  DETERMINES  1188 

EMPIRICAL  DISTRIBUTION  FUNCTION  FOR  THE  SUBNETWORK  DURATIONS  1189 

CORRESPONDING  TO  THE  ACTIVITY  DURATION  CONFIGURATIONS  SPECIFIED  1190 

1191 

••****•***•*• ************* ******* ******* **•**«••*•**•*••*** ************  1192 

FLHATCI ) = LLEFDI 1 ) /SUM  1193 

FUHAT I 1 l = ULEFD(  1 l/SUM  1194 

DC  6900  I=2.IEDF  119b 

11*1-1  1196 

LLEFCI I l=LLEFOI  1 I » ♦LLEFDI I 1 1197 

FLHAT II) =LLEFOt I I /SUM  1198 

ULEFDt  I l*ULEFD{ I 1 1+ULEFDt I ) 1199 

FUHATI I )=ULEFDI  I I/SUM  1200 

900  CONTINUE  1201 

RETURN  1202 

END  1203 

SUBROUTINE  SINGLE  1204 

1205 

SINGLE  DETERMINES  UPPER  AND  LOWER  BOUNDS  ON  1206 

THE  DISTRIBUTION  FUNCTION  OF  THE  SUBNETWORK  DURATION  1207 

BASED  ON  THE  INDIVIDUAL  CLUSTERS  - SEE  TECHNICAL  REPORT  SI  1208 

1209 

IMPLICIT  REAL *8 1 A— H. 0— Z I 1210 

C • 1211 

COMMON  /BLKA/CT I ME . OT I ME • M 1212 

DIMENSION  CTIMEI OSOO I . OT I ME  I OSOO ) 1213 

C.  .............  ...............  1214 

COMMON  /BLKC/ICR ITP.KCPB  1215 

0 1 MENS  ION  ICR  I T P 1 SO  I 1216 

1217 

COMMON  /BLKE/ I NCLUS • N I NCL . NCLUS  1218 

0 1 ME  NS I ON  NINCLtSO! . I NCLUS1 SO . 1 00 ) 1219 


n ci  ci  on 
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1220 

COMMCN  /UlK(j/fU,  ULtFO.l  L£FD  1221 

RE  AL*b  FC(  20  > .ULt^OI  20  ) .LLEF0(  20  » 1222 

1223 

COMMON  /BLKH/FH1 .FLO.PP.PQ  1224 

DIMENSION  FMi (S00 I .Foot  500 1.PPIS001 ,P0( 5001  122b 

C . . . - 1226 

COMMON  /BLKI/IEDF.NSUB. SAMSI2  1227 

INTEGER  SAMS12  1228 

1229 

COMMON  / BLKK/ I R . I B 1230 

C . ....................  1231 

COMMON  /BLKL/FLMAT.FUHAT  1232 

O I ME  NS  I ON  FOHAf  (cOI  .FOHATI20)  1233 

C ........................  1234 

COMMON  /BLN S/SUM  » I CL  GIB  123S 

C.  .............................  1236 

00  2020  I=1.IE0F  1237 

FLHAM  11*0.00  1238 

2020  FUFAT ( I 1 = 0.00  1239 

IR  = 0 1240 

3200  I R = I R f l 1241 

IF (lR.GT.KCPb)  GO  TO  3206  1242 

IFININCH IRI.ECl.O)  GO  TO  3200  1243 

NCL=IR  1244 

NNCL  = N I NCL ( IP)  1245 

C 1246 

C 1CLGI6  * -1  IF  ALL  CONFIGURATIONS  ARE  TO  BE  SAMPLED  1247 

C 1CLGS8  * 0 IF  SAMSI 2 CONFIGURATIONS  ARE  TO  BE  SAMPLED  USING  1248 

C STRATIFIED  RANCOM  SAMPLING  1249 

C ICLGIB  * 1 IF  SAMSI Z CONFIGURATIONS  ARE  TO  BE  SAMPLED  USING  1250 

C SIMPLE  RANDOM  SAMPLING  1251 

C 1 2S2 

IF (NNCL. LT. 31 } GO  TO  1 1253 

ICLG1B=1  1254 

GO  TO  2 1255 

1 I B = 2 ♦ ♦ NNCL  1256 

1 CL  GIB  »— 1 1257 

IF (SAMSI2.LT. Idl  ICLG1B=0  1258 

2 CONTINUE  1259 

C««********»*»*  ••*«**••••**•*******••**** 44 ** ******** *•*»»*«*» *•* *******  1260 

C 1 26 1 

C SET  ALL  ACTIVITIES  DURATIONS  OUTSIDE  THE  IR-TH  CLUSTER  1 1262 

C C T 1 M E ( t = UPPER  POINT  FOR  LOWER  BOUND  ON  SUBNETWORK  DURATION  1263 

C DISTRIBUTION  1264 

C OTIMEI  1 = LOWER  PUlNT  FOR  UPPER  BOUND  ON  SUBNETWORK  DURATION  1265 

C DISTRIBUTION  1266 

C 1267 

C******* 4* •••••••••*• • ••*•••****•*•••••*** ****•*•**«*# **** V*** WWW  * 444 444  1268 

00  6006  1=1 .M  1269 

CT  IMEI  I ) = FLO ( I I 1270 

6006  CIIMLI 1 l=FHi( 1 > 1271 

OC  7101  I = 1 « I EOF  1272 

ULEFOl  I 1=0. DO  1273 

7101  LLLFOd  >»0.00  1274 

*•••••*••*•*•••**•**••**••••*« ******* 44  4 •••••*•••••*****»*• * ******  12  75 

1276 

CALL  BOUND  1277 

1278 

SUBROUTINE  BOUND  DETERMINES  1279 

EMPIRICAL  DISTRIBUTION  FUNCTION  FOR  THE  SUBNETWORK  DURATIONS  1280 


t 
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CORRESPONUIHG  TO  THE  ACTIVITY  DURATION  CONFIGURATIONS  SPECIFICD  12bl 

1 282 

.•***»••«•*+*••••»**«••*•**•*****»**•*••**••*****•**•**•*»•*»••****  126J 

XXXX=LLLFD< l I/SUM  1264 

IF  I XXXX.GT.FLHAT < 1 ))  FLHATIl  )=XXXX  1285 

XXXX=ULEFOI 1 I/SUM  1266 

IF (XXXX.UT .FUHAT ( 1 ) ) FUHATIl  1=  XX  XX  1267 

OC  6900  1—2*1 EOF  1260 

I 1*1-1  1269 

LLtFD ( I I =LLEFU(  1 I 1+LLEFOI I 1 1290 

XXXX*LLEFDI 1 I/SUM  1291 

1 F 1 XXXX  * GT  . FL  HAT (II)  FLHAT ( I ! = XX XX  1292 

ULEFOI I 1 *ULEFD( I 1 1 4ULEF01 I I 1293 

XXXX=ULEF01 I 1/SUM  1294 

IF (XXXX. LT. FUHAT 1 1)1  FUM AT < I ) -XXXX  1295 

6900  CONTINUE  1296 

GC  TO  3200  1297 

320e  CONTINUE  1296 

RETURN  1299 

END  S,  1300 

SUBROUTINE  BOUND  1301 

C 1 302 

C SUBROUTINE  BOUND  DETERMINES  THE  1303 

C EMPIRICAL  DISTRIBUTION  FUNCTION  FOR  THE  SUBNETWORK  DURATIONS  1304 

C CORRESPONDING  TO  THE  ACTIVITY  OURATION  CONFIGURATIONS  SPECIFIED  1305 

C 1 306 

C ALL  ACTIVITIES  OUTSIDE  THE  CLUSTER  BEING  CONSIDERED  HAVE  1307 

C FIXED  DURATIONS  1306 

C ACTIVITIES  INSIDE  THE  CLUSTER  BEING  CONSIDERED  HAVE  BOTH  1309 

C UPPER  ANO  LOWER  DURATIONS  CONSIDERED.  1310 

C EITHER  ALL  COMBINATIONS  OF  UPPER  AND  LOWER  POINTS  ARE  1311 

C CONSIDERED  ON  A RANOCM  SAMPLE  THEREOF.  1312 

C 1313 

IMPLICIT  REALWBI A-H.C-Z)  1314 

1313 

COMMON  /BLKG/FD. ULEF  D.LLEFD  1316 

RE AL *6  FU ( 201 .ULEFDI 201 .LLEFDI20 I 1317 

C.  .........................  .........  1316 

COMMON  /BLK1/IEOF .NSUB.SAMSI 2 1319 

INTEGER  SAMSIZ  1320 

1321 

COMMON  /BLKK/IR . IB  1322 

C...  .................  .....  ..  1323 

COMMON  /BLKS/SUM. ICLGIB  1324 

C.  ..........................  ........  1325 

IV* 13579753  1326 

N1B*0  1327 

SUM.0.00  1328 

IF  I I CLG IB  I 3.6210.6211  1329 

3 CCNTINUE  1 3 JO 

c *♦••*****.** WWW* ****** WWW *** ••**** 4* ****** ********** 4 WWW* •*•**«**•»•* *»  1331 

C I 332 

C ALL  ACTIVITY  DURATION  CONFIGURATIONS  ARE  TO  BE  CONSIDERED  1333 

C I 334 

C**4 *♦•««» •• 4* •••••••••••••••••••••«•••*••••••••*•••*• *••••••♦ »•***•••**  I 3 35 

2001  NiU*NIU»l  1336 

IFINIU.GT.1BI  GO  TO  2000  1337 

CALL  ALLIN1U.XL.XU.SPR0BI  1336 

X*XL— I .0— I 0 1339 

1*0  1340 

6420  1*141  >341 


9420 


IF  (X  .CT  .FC(  I J ) GO  TO  64 20 
LLEF  Li  ( I ) = LLtFU  ( I ) ♦ SP^Cie 

SUMiEOM+SPRUd 
X = XU- l .D- I 0 
1=0 
1=1+1 

IF ( X. 61 .FUI 1) ) GO  TO  9*20 
UL  EF  0(11  = ULEFD11I  » SPROB 

GC  TO  2001 
6210  CCMIME 

C* • 4*4 4 *4  4* 4* **44444 4*4 444*4  ******** *4*4 4*44*4** *444*44* ******* 

c 

C A STRATIFIED  RANDOM  SAMPLE  CP  THE  ACTIVITY  DURATION 

C CONFIGURATIONS  IS  TO  BE  CONSIDERED 

C 

c*********** *••••••**•••*•*••••••• A********************************** 

2011  Mb-Nia+l 

IF <N I6.GT.SAMS12 ) GO  TO  2000 
CALL  STRATINId.XL.XU.SPROB.lv) 

X=XL-  1.0- 10 
1 = 0 

7420  I=IF1 

IF (X.CT.FCI I ) ) GO  TO  7420 
LLEF  Oil)  = LLEF  0(1)  ♦ SPROB 

SUM  = SUM  + SPROt) 

X=XU-1.C-10 
1 = 0 

74201  1=1+1 

IFlX.GT  *FD( 1) ) GO  TO  74201 
ULEFD(I)  = ULEFO(l)  ♦ SPROB 
GC  TO  2011 
E 2 1 1 CONTINUE 

C****************** ••***•••*••••*•*•••••••***•*••• «***•••**•** ******* 

c 

C A SIMPLE  RANDOM  SAMPLE  OF  THE  ACTIVITY  DURATICN 

C CONFIGURATIONS  IS  TO  BE  CONSIDERED 

C*** ••***••*••* ****** ***••*♦*«♦*♦* *•**••*•«••* ******** 4*44 *444 *44 ***• 

3011  MU  = MB+1 

IF (NIO.GT.SAMS12 ) GO  TO  2000 
CALL  S 1 MPLE ( N 1 U « XL . XU. SPROB* IY) 

X=XL-1.D-I0 

1=0 

0420  1=1+1 

IFlX.GT .FCC 1 ) I GO  TO  8420 
LLEF  C ( I I = LLEF  Dll)  ♦ SPROB 
SUM*  SUM  + SPROB 
X=XO-l .0-10 
1*0 

84201  1*1+1 

IF(X.GT.FDtll)  GC  TO  84201 
ULEFOII)  * ULEFOI  I I ♦ SPROB 
GC  TC  3011 
2000  CONTINUE 
N I B* N I B— 1 
RETURN 
ENO 

SUBROUT INE  ALL ( N I B. CPT I M . CLT IM, SPROB) 

C 

C ALL  RETURNS  THE  COMPLETION  TIME  AND  PROBABILITY  FOR  THE 

C NIU-TH  CONFIGURATION  OF  THE  2*«NINCL(L)  POSSIBLE  CONFIGURATIONS 


I 34? 

1343 
I .14  4 
I 14  S 
I 346 
1147 
t 148 
I 349 
1 350 
1151 
1 152 
1 353 
1 354 
1155 
1356 
1 357 
1 158 
1 359 
1160 
1 36  I 
1 362 
1 363 
1 364 
I 365 
1 366 

1367 

1368 
1 369 
13  70 
1371 
1 372 

1373 

1374 

1375 

1376 

1377 

1378 
1 379 
1380 

1361 

1362 
1 383 

1384 

1385 

1386 

i je? 
1388 
1 389 

1390 

1391 
1 392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 
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# 


c 

IMPLICIT  REAL*8  (A-H.0-2) 

C 

COMMON  / ELKfc/ (NCLUS  « Nl NCL . NCLUS 
01 ME  NS  ION  NINCLI SOI . I NCLUSI 5 0 • 1 00 ) 

C 

COMMON  /BLXK./1R.IB 



I J*0 

KJ<M  NCL  ( IP) 

CALL  C0NVRTIN1B. I J.KJ .SPROB) 

CPTIM^CPT IMEICPATMT I 
CL  T I M = CLT I ME  C CPATMT I 
RETURN 
END 

SUBROUTINE  CONVRTI JP, I J.KJ. SPROB) 

IMPLICIT  REAL*  B (A-H.0-2) 

C 

CCMMON  /6L< A/CT I ME • O T I ME . M 
01 MENS  ION  CT IME( 0500 ) .OT I ME  I 0500) 



COMMON  /BLKE/INCLUS.N1NCL. NCLUS 
Ol MENS I ON  N I NCL (SO  I.  INCLUS ( SO • I 0 0 > 



CCMMON  /BLKH/FH1 .FLO.PP.PO 

O I MENS 1 CN  FH1  (SOO)  . FLO ( 500  I . PF ( 5 00 > . PO (500  I 

C 

COMMON  /BLKK/1R.1B 

C . . . 

C 

C CONVERT  THE  INTEGER  JP  TO  A BINARY  NUMBER  TO  DEFINE  THIS 

C SEGMENT  OF  THE  ACTIVITY  CONFIGURATION 

c 

SPROB* 1 .00 
K*  JP 

00  I 1*1. KJ 
lH*K/2 

1 2*K— I H*2 

L* I NCLUSI IP. 1*1 J) 

CT1ME(L)-12*FHI (L)*( l-I2)*FLO(L) 

OTIMEIL  >«CT I ME ( L ) 

SPROB*  SPRCR* ( 1 2 *PQ( L I ♦ ( t-I2)*PP(Ll) 

I K*IH 

RETURN 

ENO 

SUBROUTINE  STR AT ( N I B .CPT I M.CLT I M . SPROB . I Y I 
C 

C STRAT  SAMPLES  SYSTEMATICALLY  FROM  THE  2**NINCL(IRI 

C POSSIBLE  CONFIGURATIONS  ANO  COMPUTES  THE  COMPLETION  TIME 

C ANO  PROBABILITY  FOR  EACH  SAMPLED  CONFIGURATION 

C 

C THE  ROUTINE  ASSUMES  THAT  A SAMPLE  OF  SI2E  S AMS  1 2 * ILL  BE 

C GENERATED  AND  RETURNS  ONLY  ONE  SAMPLE  POINT  PER  CALL 

c 

IMPLICIT  REAL*B( A-H.0-2) 



CCMMON  /ELKA/LT IME.0TIME.MM 

01  MENS  ION  CTIME(OSOO) .OT IMEC 0500) 



COMMON  /BLKE/ I NCLUS • N I NCL • NCLUS 
DIMENSION  N I NCL (50). I NCLUSI 50. 1001 


1 403 
I A 0 A 

1405 

1406 

1407 

1 4oe 

1 409 
14  10 
14  11 

1412 

1413 
14  14 
1415 
14  16 
1417 
14  18 
14  19 
1 420 

1421 

1422 

1423 

1424 
1 425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 
I 435 
14  36 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 
1 456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 


1 


n n 
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C .......  1464 

COMMON  /BLKH/FHI  .FLO.PP.PO  1465 

DIMENSION  FH1 (5001 .FLO(SOO>.PP(SOO> .FQ(SOO)  1466 

C 1467 

COMMON  /SLK 1 / 1 LUF . NSUB. SAMSI 2 1468 

I N TE  GEM  S AMS I 2 1461 

C 1470 

COMMON  / BL  KK/Ift*  IB  1471 

C. ............. .........  .......  1472 

1 N TEGLR  *4  BSUM.BCOEF  1473 

1 N T EGER  *2  DIGIT131)  14  74 

1 4 75 

SPRUB=1.D0  1476 

IF (NIB.NE. 1 IGQ  TO  10  1477 

1478 

INITIALIZE  ANO  FIND  THE  FIRST  CONFIGURATION  1470 

C 1480 

MaSAMS 12  1481 

NsKINCL(IR)  1482 

NM=  1 1483 

BCOEF=l  1484 

BSUM=BCOEF  1485 

NPl=Ntl  1486 

N 1 — N 1487 

M l = M— 1 I486 

S-CFCOAT ( 24  4N— 2 l/OFLOAT ( M— 2 1 14  89 

OC  5 11=1. N 1400 

L* INCLUSI  IR. 1 I 1 1401 

SPRCB=SPROB«PUU.l  1402 

(iTIMKUaFHilU  1403 

5 CT1ME(L)=FHI(L>  1404 

CPTIM=CPTI ME 1CPATHT I 1405 

CCT IM=CLT IMtICPATHT 1 1406 

CALL  RANC(IY.X)  1407 

RS=-S*X*2.00  1408 

GO  TO  40  1400 

10  IF  INI 8.GE.M1GU  TO  30  1500 

C 1501 

C FINO  THE  NEXT  CONFIGURATION  IN  THE  SYSTEMATIC  SAMPLE  1502 

C 1503 

HS=RS«S  1504 

1 S= I01NTIRS)  1505 

1 IFIUSUM.GE.ISIGO  TO  2 1506 

BCOEF=BCOEF»N!/< NP1 -N1 > 1507 

N 1 =N 1 — 1 1508 

BSUM=BSUM4BC0EF  1500 

GO  TO  1 1510 

2 1= 1 S-USUM 4BC0EF  1511 

CALL  CONFIG!  l.BCOEF.M.N.OIGIT)  1512 

C 1513 

C COMPUTE  CPT I M.CLT IM. ANO  SPROB  1514 

C ISIS 

CO  20  1 1=1. N 1516 

L= INCLUSI  IR. I I 1 1517 

IF (DIGIT { II  I > 18. 18. 10  1518 

18  CT lMt(L>=FL0(L)  1510 

OTIME(L)=FLO(L)  1520 

SPRCB*SPR0H4PP(L 1 1521 

GO  TO  20  1522 

10  CTIME(L)*FHI(L>  1523 

OT  IME(L)aFHKL)  1524 


r*  n 
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SPROO*SPKOO*PCi!L)  1525 

20  CONTINUE  1526 

CPTIM*CPTI ME ! CPA IHT ) 1527 

CLI1M=CLT IMECCPATHT > 1528 

CO  TO  40  1529 

1530 

F1N0  THE  LAST  CONFIGURATION  1531 

C 1532 

30  DO  6 I 1*1 .N  1533 

L*INCLUSI IR.I 1 ) 1534 

SPROB  = SPRClB*PP!L)  1535 

OT  IME!L)*FLC!L)  1536 

6 C7IME(L>*FLO!L>  1537 

CPTIM=CPTIME!CPATHT 1 1538 

CLT  IM  = CLT  IMLU.PATHT  ) 1539 

40  RETURN  1540 

END  1541 

SU8R00TINE  CONF I G< I . BCOEF .N( . N . O IGI T ) 1542 

C 1543 

C CONFIG  FINOS  THE  I-TH  LARGEST  N-CIG1T  OINARV  NUMBER  1544 

C HAVING  N 1 — • ONE S • AND  IN  - N 1 ) — • ZEROES* • BCOEF  IS  THE  TOTAL  1545 

C NUMBER  OF  SUCH  CONFIGURATIONS  1546 

C 1547 

IMPLICIT  1 N TEGER  44 1 A — Z ) 1548 

C.  1545 

INTLGER42  DIGITI31)  1550 

C..........  ................  .........  1551 

OO  1 11*1. N 1552 

1 OIGITIII  1*0  1553 

NIP*N1  1554 

NP*N  1555 

R*l  1556 

1N0EX*N  1557 

C*BCOEF  1568 

3 IFINIP.LT .1  1 GO  TO  6 1559 

C*C*N IP/NP  1560 

MP*N1P-1  1561 

NP*NP— 1 1562 

RR*R-C  1563 

|F(RR)4.4.5  1564 

4 DIGIT! INDEX)*1  1565 

IN0EX*IN0EX-1  1566 

GO  TO  3 1567 

5 INOEX* INCEX-1  1568 

R*RR  1569 

C*C4(NP-NIP»/NP  1570 

NP*NP— 1 1571 

RR*R-C  1572 

IF!  RR  14.4.5  1573 

6 RETURN  1574 

ENO  1575 

SUBROUTINE  S I MPlE I N I B • CPT I M. CLT I M .SPROB . I V ) 1576 

IMPLICIT  REAL *81 A-H. 0-2)  1577 

C 1 578 

C SIMPLE  GENERATES  ! AT  RAN0CM1  ONE  OF  THE  244N1NCLIIR)  1579 

C POSSIBLE  CONFIGURATIONS  ANO  FINOS  ITS  COMPLETION  TIME  AND  PROB  1580 

C i5et 

C INITIALIZE  1582 

C 1 583 

C . . . . ...........  1584 

COMMON  /BLKE/ I NCLUS • NlNCL.NCLUS  1586 
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O I Mt  NS  ION  Nl  NCH  50)  . 1 NCLUS <5 0 . 1 0 0 ) 



COMMON  /BLK  l / J t OF . NSUS  * S AMS 1 Z 
INIEGER  SAMSIZ 

c . 

COMMON  /8LKK/IR.1B 

C... 

SPR08= 1 .00 

IF ( N I B .NE • I IGO  TO  10 
NCLUS=NINCL( IK) 

NNC=NCLU5/31 
NNCR=NCLUS-NNC*3l 
10  IF(NNC.EC.O)GO  TO  20 

RNCL=DFLOAT{ 2*431-1 ) 

K J=  3 1 

OC  1 1=1. NNC 

CALL  KANCI 1Y.U) 

JP=IDI NT(U*RNCL) ♦ 1 

IF  (Mb.  = 0.1  f JP=  I O I NT  ( KNCL  ♦ .50  0 ) 

IF (Nl b. EG. SAMSIZ ) JP= IDI NT  I RNCL  + 1 .500 ) 
ij=(  i-n*3i 

CALL  CCNVRT ( JP .IJ.KJ.SPKOB) 

1 CONTINUE 

20  IF (NNCfi.EQ.O ) GO  TO  25 

HNCL=DFLCAT(2**NNCR-1 ) 

CALL  KANC(IY.U) 

JP=I0 INT ( U * KNCL ) ♦ 1 

IF (NIB. tQ. 1 ) JP=IOINTIRNCLF.5DO) 

IFlNIB.EC. SAMS  1 Z I JP= 1 0 INT I RNCL ♦ 1 .500 ) 

1 J=NNC*31 

CALL  CONVRT ( JP . I J.NNCR, SPKCB ) 

25  CPTIM=CPTIME(CPATHT> 

CLT I M = CLT  IME(CPATHT) 

KETUHN 

ENO 

SUBROUTINE  RANDl NSEEO. U ) 

C ROUTINE  FOR  GENERATING  UNIFORM  RANOOM  NUMBERS  BETWEEN  0 AND 

C I.  BASED  UPON  A 32  BIT  LENGTH  INTEGER 

c 

c 

C NSEED  IS  THE  STARTING  INTEGER  CHOSEN  FROM  A RANDOM  NUMBER  TABLE 

C OF  TEN  OIGIT  INTEGERS 

c 

C U IS  THE  RETURNING  UNIFORM  RANOOM  NUMBER 

c 

c 

C MO  IS  THE  LARGEST  SINGLE  PRECISION  INTEGER  I MO  = 2147483647) 

C F MO  « FLOAT  < MO  ) 

< 

C SEE  HCAGLIN  FUR  TEST  OF  RANOGMNESS 

w 

implicit  real*«i A-H.O-Z) 

.»*  » M . / 2 I « 7*8 Jo4 7 . D» /. MO/2  147483647/. ML/76426  1 123/ 

»«l  t i.  kti(D»L 

• .c  T .4  |N.UO*NSEEOI-jM 

OP*  AULMIJI/IMO 


1 % I MM  I I 


><  ..Iht.UMII  1 


1586 

1587 

1588 
1569 

1590 

1591 

1592 
1 593 

1594 

1595 

1596 

1597 
159  8 

1599 

1600 
1601 
1602 
1603 
16  04 

1605 

1606 

1607 

1608 

1609 

1610 
1611 
1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 
1621 
1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 
1 64  I 

1642 

1643 
I 644 

1645 

1646 


1 


/ 
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INTEGER  SAMSIZ  1647 

C • • • . 1648 

CCMMCN  /8LKY/F0UHAT .FOLHAT  .FHAT  1649 

0 1 HENS  1 ON  F DLHAT ( J,  2 0 ) « FOUHAT (3,20).FFAT(20)  1650 

RE  AC  * 8 FCLHAT. FOUHAT. FHAT  1651 

C...  .........................  .......  1 652 

COMMON  /8LKZ/THETA  1653 

REAL 44  THETAJ  3)  1654 

C.  ...................  1655 

COMMON  /BLK1/81 INV, OMEGA, MM. KK.MMKK. MMKK2.N.MP1 , JFIRST  1656 

COMMON  /BLK2/Y1  1657 

DIMENSION  BRHS1 (230) . INBASEI 2301 .XB1 (2301.Y1 (230 ).B1 INV(230.230)  1658 

DIMENSION  OMEGA ( 3 ) 1650 

INTEGER  2 1660 

C. ..................... .............  1661 

*T(0«)s  (0W42.-3.J40W40W41.  1662 

C 1663 

C THE  FOLLOWING  'TOLERANCES  * ARE  OSEO  IN  THE  ALGORITHM.  1664 

C THEY  MOST  BE  NON-NEGATIVE  AND  MOULC  BE  ZERO  EXCEPT  FOR  THE  1665 

C NUMERICAL  INACCURACY  OF  THE  COMPUTER  1666 

C TCLR1  ; IF  THE  MAX  REDUCED  COST  IS  LESS  THAN  OR  EQUAL  TO  1667 

C TOLR1  THEN  ALL  REDUCED  COSTS  ARE  CONSIDERED  TO  BE  1668 

C NON-POSITIVE.  1669 

C T0LR2  1 ANY  COMPONENT  Y(l,J>  LESS  THAN  OR  EQUAL  TO  TCLR2  1670 

C IS  CONSIDERED  NON-POSITIVE.  1671 

C 1672 

TOLR 1= 1 . E— 4 1673 

T 0LR2  = 1 . E— 4 1674 

CALL  ERRSET1208.2S6.— 1 . 1 ) 1675 

C 1676 

C THE  INPUT  1677 

C 1678 

C M * THE  NUMBER  OF  CONSTRAINTS  NOT  INCLUDING  THE  OBJECTIVE  1679 

C FUNCTION  1680 

C Ns  THE  NUMBER  OF  VARIABLES  1681 

C 1682 

JFIRSTsO  1683 

KK*3  1684 

MMSIEOF-I  1685 

M*44MM4KK41  1686 

Ns(6*KK47)*MM41  1687 

MMKK=MM*KK  1688 

MMKK2=MMKK*2  1689 

MP1=M41  1690 

DO  100  L = 1 • KK  1691 

too  OMEGA(L )=!•/( 1 . ♦ THETA (Li ) 1692 

C 1693 

C 8RHS  IS  A COLUMN  OF  CONSTANTS.  THE  I-TH  ELEMENT  1694 

C OF  BRHS  IS  THE  CONSTANT  ON  THE  RIGHT-HAND  SIOE  OF  THE  I-TH  1695 

C EOUALITY  IN  AX  s BRHS  1696 

C 1697 

BRHS 1 (11=0.  1696 

list  1699 

DC  610  Lsl, MM  1700 

* 00  610  !*|, KK  1701 

11*1141  1702 

I 2*MMKK 411  1703 

I3SMMKK4I2  1704 

|4*MMKK4|3  1705 

• BRHSl(Il) sFOUHAT ( 1 , L ) 1706 

BRHS1  ( I2)*FDCMAT( l.LI  1707 


n a n 
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eRFSl { 13 I=BRHS1  l 1 X ) 1708 

610  6RHS1I 14 »=BRHS1  ( 12)  1709 

dRHSl < MPl)=l . 1710 

C 1711 

C THE  MPl-BY-N  MATRIX  A1  IS  THE  AUGMENTEO  MATRIX  OF  CONSTANTS  IN  1712 

C THE  CONSTRAINTS  AX  = BRHS.  IT  WILL  BE  GENERATED  COLUMN-BV-  1713 

C COLUMN  AS  NEEOEO.  1714 

C 1715 

C 1716 

C INBASE  IS  A SET  OF  M INTEGER  VARIABLES  WHICH  INDICATE  THE  1717 

C COMPOSITION  UF  THE  CURRENT  BASIS  B.  FOR  EXAMPLE.  1716 

C INBASE(K)  = 7 IMPLIES  THAT  THE  K-TH  COLUMN  IN  THE  BASIS  B 1719 

C CORRESPONDS  TO  THE  7-TH  VARIABLE  1720 

C INBASE(l)  = 0 IMPLIES  THAT  THE  FIRST  COLUMN  IN  THE  BASIS  82  1721 

C CORRESPONDS  TO  XO  1722 

C 1723 

INBASE ( 1 1=0  1724 

IU=MMKK241  1725 

DO  2 1 K-2. IU  1 726 

21  INEASEl K >=K— 1 1727 

10=1041  1728 

IL=MMKK247*MM-1  1729 

DO  52  K=IU.MPl  1730 

52  INBASElK )=1L4K  1731 

C 1 732 

C THE  M41  BY  M41  MATRIX  BIINV  IS  THE  INVERSE  OF  THE  REV ISEO  1733 

C SIMPLEX  BASIS  MATRIX  Bl.  < 1734 

C THE  FOLLOWING  STATEMENTS  CONSTRUCT  THE  INITIAL  MATRIX  BIINV  1735 

C 1736 

00  10  11=1. MP1  1737 

00  12  L=1.MP1  1736 

12  Bl  INVtL. I I 1=0.  1739 

10  BIINV! 11.111=1.  1740 

IU=MMKK241  1741 

00  11  11=2. IU  1742 

B 1 INV(MMKK2»I I . I I 1=1 . 1743 

11=11-1  1744 

12=11 /KK  1745 

L=I1-I2*KK  1746 

IF(L.EO.O)L=KK  17=7 

11  BIINV!  1.  II )=— WT ( OMEG A (L ) ) 174  6 

1 749 

CALCULATE  THE  INITIAL  VALUES  CF  THE  BASIC  VARIABLES  1750 

1751 

00  753  1=1. MP1  1752 

XB  1(11  = 0.  1753 

00  755  K» 1 . MP 1 1754 

755  XB 1 ( I ) = XB 1(1) 40 11NVII.K) *BRH  S 1 ( K ) I7S5 

753  CONTINUE  17S6 

350  CCNT1N0E  1757 

C 1756 

C START  THE  BASIC  SIMPLEX  ALGORITHM  1759 

C 1 760 

C COMPUTE  THE  REDUCEO  COSTS  1 C(J>  -Z(J)  1761 

C THE  J-TH  REDUCED  COST  IS  OENCTED  BY  REOCOS1JI  1762 

C 1 763 

C FINC  THE  MAXIMUM  REOUCEO  COST  1764 

C RMAX  = THE  MAXIMUM  REDUCEO  COST  1765 

C IRMAX  = THE  SMALLEST  INDEX  J SUCH  THAT  REDCOS < J 1 =RM AX  1766 

C 1767 

2=1  1766 


1 
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IRMAX=1  176% 

RNAX-REOCST  I Z . 1 ) 1770 

OC  24  J-2.N  1771 

RECCOS*REOCST(Z. J)  1772 

IFIRE0CQS.LE.RMAX1G0  TO  24  1773 

RKAXxfcEOCOS  1774 

1RMAX-J  1775 

24  CONTINUE  1776 

C 1777 

C IF  RMAX  IS  NOT  POSITIVE  THEN  ALL  THE  REOUCEO  COSTS  ARE  1778 

C NON-POSITIVE  ANO  THE  CURRENT  SOLUTION  IS  AN  OPTIMAL  SOLUTION  1779 

I F (RMAX  .LE.  TCJLRI)  GO  TJ  401  1 760 

C 1781 

C DETERMINE  THE  IRMAX-TH  VI  VECTOR  1762 

C 1 7e3 

CALL  VRMAXt IRMAX.MP1 J 1784 

C l 785 

C IF  ALL  THE  COMPONENTS  OF  Y ARE  NON-POSITIVE.  THE  PROBLEM  HAS  1786 

C AN  UNBOUNDED  SOLUTION.  FOR  THE  PROBLEM  BEING  SOLVEO  THERE  IS  NO  1787 

C NEED  TO  CHECK  FOR  UNBCUNDEONESS  SINCE  CX  IS  bCUNOED  ABOVE  BY  0.  1788 

C 1 789 

C THE  IRMAX-TH  VARIABLE  IS  TO  ENTER  THE  BASIS.  1790 

C 1791 

C THE  VARIABLE  TO  LEAVE  THE  BASIS  IS  NOW  DETERMINED.  1792 

C RM1N  x THE  MINIMUM  RATIO  OF  XB(I)/V(t)  KITH  V ( I > > 0.  1793 

C IRMIN  = THE  INDEX  OF  THE  BASIS  COLUMN  TO  BE  REMOVED  1794 

C 1795 

, RMIN-.S9E20  1796 

I RM I N=0  1797 

00  32  11*2. MP1  1798 

1FIV 1 < I 1 l.LE.  TOLR2)  GO  TO  32  1799 

R*X0l I I I l/Vl ( 1 1 ) 1800 

, RRsR-RMlN  1801 

IFIRR.GE.O.lGO  TO  32  1602 

RM1N=R  1803 

1 RM 1 Ns  I I 1804 

32  CONTINUE  1605 

C 1 806 

C REPLACE  THE  IRM1N-TH  COLUMN  OF  THE  BASIS  BV  THE  IRMAX-TH  1807 

C COLUMN  OF  A 1808 

C 1 809 

C UPOATE  THE  BASIS  INVERSE:  81INV  1810 

C 1811 

00  33  J«2.MP1  1812 

KM*B1 INVI IRMIN  • J ) / Y 1 C IRMIN  ) 1813 

00  37  L*1.MP1  1814 

37  B1INVIL. J)*8ilNV(L.JI-»fe«Yl(L>  1815 

33  B11NVIIRMIN  ,J)Z*M  1816 

C 1817 

C UPOATE  THE  BASIC  VARIABLES:  INBASE  ANO  XB 1 1818 

C 1819 

INBASE ( IRMIN)  = IR MA  X 1820 

M*XB 1 1 IRM IN  1/ Y 1 I IRM IN  I 1821 

00  38  I * l .MPl  1822 

* 38  XB1 I 1 ) *XB 1 < ll-YII  I)4W  1823 

XBIIIRMIN  1824 

GO  TO  350  182S 

401  CONTINUE  1826 

999  CONTINUE  1827 

„ 00  1010  L*1.MM  1828 

1010  FHAT<L)=0.00  1829 
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OC.  1011  L=l,MPl  1830 

KKK=ISaASfclL;  1831 

IF (KKN.GT.MMKK2. AN0.KKK.LE.MMKK2+MM)  FH A T < KKK-MMKK2 ) =X8 1 ( L > 1832 

1011  CONTINUE  1833 

00  1013  LX2.MM  1834 

1013  FFATIL )=FHAT(L) FFMAT CL-1 1 1835 

FHAT ( ItOF 1=1 .00  1836 

R E TURN  1837 

END  1838 

SObROOTINE  VH  MAX ( 1R  MAX • MP 1 ) 1839 

C 1840 

COMMON  /8LK2/Y 1 1841 

C 1 MENS  ION  VK2J0I  1842 

INTEGER  Z 1843 

C I 844 

00  1 Z=1.MP1  1845 

1 Y1 IZ)=-REDCSTIZ. IRMAX)  1846 

RETURN  1847 

ENO  1848 

FUNCTION  REOCST(Z.I)  1849 

IMPLICIT  INTEGER44  (C-ZI  1850 

C. 1 8 5 1 

COMMON  /bLK l/Bl INV, W .M.K.MK. MK2.NN.NP 1, JFIRST  1852 

REAL44  B 1 INV I 230 .230 > 1853 

REAL44  W ( 3 1 tMWT (3) •WMI3.31.MT .CW.REDCST.DR  1 854 

C.  .............................  1855 

•T (0*)=  (ON*2.-3.)*OW*QW+l.  1856 

1F( JFIRST. NE.01GC  TO  101  1857 

JFIRST=1  1858 

LL  1 = MK2  1859 

LL2— LL 1 ♦ M I860 

LL3=LL2+6*M  1861 

LL4=NN  1862 

LG— MK2 ♦ 1 1863 

OC  100  J=1.K  1864 

Ob=M(J)  1865 

4»(J.1I=0H  1866 

bM(  J .2  )=C**0l»  1867 

MM! J,3)=-0b*UW  1868 

100  kt T< J > = 4T (Oa|  1869 

101  IFI I.GT.LL1 1G0  TO  200  1870 

P=I*|  1871 

REDCST=-81 INVIZ .Pl+Bl INVIZ.MK2+PI  1872 

1FIZ.NE.1 1 GO  TO  SOO  1873 

P=I/K  1874 

Q»I-K*P  1875 

1F(0.E0.0)Q=K  1876 

REOCST=REOCST-b*T(Q)  1877 

GO  TO  500  1878 

200  1F< l .GT.LL21G0  TO  300  1879 

REOC  S 1 = 0 • 1880 

0*1-MK2  1881 

IL=— MK* (0-1 1 *KF2  1882 

IU=1  1883 

OC  202  P x 1 • 4 1884 

IL=ILFMK  1885 

iu-iu«mk  iee6 

00  202  L—  IL . 1 U 1887 

202  REOC ST  — REOC  ST— B1 INVIZ. L)  1888 

REOCST=RECCST-bl INVIZ. NP1 ) 1889 

GO  TO  500  1890 
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300  I F ( I . C T »LL3 >00  TO  400  1891 

REDCST=0.  1892 

L* I — LL2  1893 

P = L/3  1894 

Q*L— 3*P  1895 

I F ( C . NE « 0 1 CO  TO  303  1896 

Q<3  1897 

P=P-1  1898 

303  1C=P*K+1  1899 

I U=WK2 ♦ 1L  1900 

DC  302  9=1. K 1901 

CR=NW(R.O)  1902 

IF (P.GE.M.AND.Q.EO.l )DR=-DR  1903 

302  REDCST=REDCST-0R*(81 1NV(2. IL*R )t0lINV(Z. IU*R I 1 1904 

GO  TO  500  1905 

400  IF { 1 .GT.LL4IG0  TO  500  1906 

0=I-LL34l  1907 

IF<0-CC140l .401 .402  1908 

401  REDCST=B1 INVtZ.Q)  1909 

GO  TC  500  1910 

402  RE0CSI=-8l 1NV1Z.G1  1911 

500  RETORN  1912 

ENO  1913 
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8 . SYNTH 

C SYNTHESIS  PROGRAM 

C 

C SYNTHESIS  COMBINES  PARALLEL  AND  SERIES  SUBNETWORKS  IDENTIFIED  BY 
C THE  DECCMPCSIT 1UN  PROGRAM  INCORPORATING  SUBNETWORK  DURATION 
C DISTRIBUTION  INFORMATION  PROVIOEO  BY  THE  SUBNETWORK  ANALYSIS  PROGRAM 
C 

C THE  FULLCWING  IS  AN  ALPHABETICAL  LIST  OF  THE  VARIABLES  AND  ARRAYS 

C USEO  BY  BOTH  THE  MAIN  PROGRAM  AND  ITS  subroutines 

c 

C F*II,JI=JTH  C.D.F.  VALUE  FCfi  THE  ITH  SUBNETWORK 

C FXSAVEI I )= ITH  C.D.F.  VALUE  RESULTING  FROM  THE  CURRENTLY  SYNTHESIZED 
C SUBNETWORKS 

C Kl=NUMbER  OF  THE  1ST  SUBNETWORK  IN  PAIR  CURRENTLY  BEING  SYNTHESIZED 

C K2=NUMBER  OF  THE  2ND  SUBNETWORK  IN  PAIR  CURRENTLY  BEING  SYNTHESIZED 

C NIEOFI I )=NUMBER  UF  POINTS  IN  THE  ITH  SUBNETWORK  DISTRIBUTION 
C NT=NUMBER  UF  C.D.F.  SUBDIVISIONS  USED  THROUGHOUT  SYNTHESIS  (MAXx9?) 

C NUMSU6  = NUMBER  OF  SUBNETWORKS 
C XCI.J»=JTH  X VALUE  FOR  THE  ITH  SUBNETWORK 

C X SAVE (I  I = I TH  X VALUE  RESULTING  FROM  THE  CURRENTLY  SYNTHESIZED  SUBNETW 
C 

C THE  FOLLOWING  IS  AN  ALPHABETICAL  LIST  OF  THE  VARIABLES  ANO  ARRAYS  USE 
C ONLY  IN  THE  MAIN  PROGRAM 
C 

C I D=  NUMBER  OF  THE  SUBNETWORK 
C I EOF  = NUMBER  CF  POINTS  IN  THE  C.D.F. 

C INSNCUI-ITH  INSTRUCTION  NUMBER 

C I OP  T = 0 INDICATES  S WILL  BE  CHOSEN  AS  A PERCENTILE  OF  THE  SYNTHESIZED 
C DISTRIBUTION 

C *1  INCICATES  S WILL  BE  THE  MEAN  OF  THE  SYNTHESIZED  DISTRIBUTION 

C I SORP  <11  = 0 INDICATES  THE  CURRENT  SUBNETWORKS  ARE  IN  SERIES  IN  THE 
C ITH  INSTRUCT  ION 

C =1  INDICATES  THE  CURRENT  SUBNETWORKS  ARE  IN  PARALLEL  IN  THE 

C ITH  INSTRUCTION 

C ISUBNT(I)  = SUBNET  WORK  RESULTING  FROM  THE  ITH  INSTRUCTION 
C J SU8NT ( I.J1  = JTH  SUBNETWORK  CONTAINED  IN  THE  ITH  INSTRUCTION 
C = 0 INDICATES  THE  PREVIOUS  NUMBER  WAS  THE  LAST  SUBNETWORK  F 

C THIS  INSTRUCTION 

C NCINS=NUMBER  OF  INSTRUCTIONS  TO  BE  SYNTHESIZED 
C PCT-PERCENT ILE  VALUE  TO  BE  USED  IN  DETERMINING  S 
C FO-OESIREC  PROJECT  DEADLINE 

C SxMEAN  OR  PERCENTILE  OF  FINAL  DISTRIBUTION 
C TTxTARGET  TIME  USED  FOR  THE  TIME  COMPRESSION  PROGRAM 
C 

C FOR  THE  SAKE  OF  IDENTIFYING  THE  APPROPRIATE  DIMENSIONS.  LET 

C NTMAX  = THE  MAXIMUM  NUMdER  OF  SUbOIVlDIONS  ALLOWED  IN  THE  CDF 

C NTMAX  x THE  MAXIMUM  NUMBER  CF  SUBDIVISIONS  ALLOWED  IN  THE  CDF 

C FOR  THE  ENTIRE  PROJECT 

C NSUEMAX  x THE  MAXIMUM  NUMUER  CF  SU8NE T OWRKS  ALLOWEO  IN  THE 

C DECOMPOSITION  PROCESS 

C I EOF  MAX  x THE  MAXIMUM  NUMBER  OF  SUBDIVISIONS  ALLOWEO  IN  THE 

C APPROXIMATE  COF  FOR  EACH  SUBNETWORK 

C NCINSMAX  x THE  MAXIMUM  NUMBER  OF  INSTRUCTIONS  GENERATED  BY  THE 

C DECOMPOSITION  PROCESS 

c MAX  X MAXIMUM  OF  < NT  MAX . I EOFM AX  I 

C CURRENTLY.  NT  MAX-SO 1 NSUbMAX=lOOJ  IEDFMAX  = 20!  NOINSMAX=IOO 

C 

C DIMENSION  XINSUBMAX. MAX  I ,FXC NSUflMAX. MAX) .FXSAVEI NTMAX I . 

C • NIEUFI NSUdMAXl • I NSNO < NO I NSMA X ) . I SORP ( NCI NSM AX ) t 

C * ISU8NT (NOINSMAX I . J SUBNT ( NO  I NSM AX . 24  I .R (NTMAX) , SINTMAX ) . 

C * FH(NTMAX)  .FSINT  MAX ) » F I LES  < NO  1 NSM AX  W27 ) . 


2 

3 

4 

5 

6 

7 

8 
9 

10 
I I 
12 
I 3 
14 
1 5 
16 
1 7 
18 

1 9 
20 

2 1 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32  t 

33 

34 

35 

36 

37 

38 
35 
40 
4 I 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53  , 

54 

55 

56 

57 

58 

59  • 

60 
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ECUIVLANECE  (FILE5I NCINSMAX* 1 ) . I SUONTI l ) ) , 61 

• (F ILE5(2*NC1 NSMAX4 1 ) . ISORP! 1 > ) , 62 

• FIlES!  3*N0INSMAX*1  I . JSUBNTI  1 ) 1 63 

64 

IMPLICIT  REAL**  1A-H.0-Z)  65 

COMMON  /BLKA/X!  100.S0).FX(  1 00 , SO ) . XSA VE I S 0 ) .F XSA VEI SO ) . 66 

•NIEOFI  100). Nt  67 

COMMON  /BLKB/R!  50), S(  50). FR!  50).FSt  50)  6B 

REAL*4  ITT  ,uPU , OCT  60 

DIMENSION  INSNOl 1 00 ) . I SORP ( 1 00 ) , I SUBNT ( 1 00 ) . JSUBNTI 1 00 .24 ) 70 

INTEGER**  F ILLS ( 2700 ) 71 

INTEGER  F4/12/.F5/1 3/  72 

ECU  1 V AL  ENCE  ( F 1 LE5 ( 1 I . 1 NSNO ( 1 ) ) . I F IL E5(  1 0 1 ) , I SUBNT ( I ) ) . 73 

4 (FILES! 201 ). I SORPI 1 )). IF ILE5I301 ) .JSUBNT ( 1 ) ) 74 

7b 

READ  DATA  IN  AND  PRINT  INPUT  INFORMATION  76 

77 

WRITE (6, 200 ) 76 

200  FC.RMATOH1.1J2! • • • I / 1 X . 1 32  ( ' ••  )/  70 

••0TH1S  IS  the  output  from  the  synthesis  program:  SYNTH • / ao 

• 1H0 . I32( )/lX. 1 321 •*•  )✓/////•  THE  CURRENT  PROJECT  SCHEDULE  IS  TH  ei 

• E ONE  MOST  RECENTLY  LISTED  BY  THE  OE TERM  I NI S T I C SCHEDULE  RESCLUTIO  62 

•N  PROGRAM. •/• OTHE  PRO JECT *, 1 H* ,* S CORRESPONDING  APPROXIMATE  COMPLE  e3 

• T10M  TIME  DISTRIBUTION  IS  DETERMINED  BELGWS*)  64 

REMIND  FA  65 

remind  fs  ee 

REA0IF4) NCYC . ITT. NFL AG  87 

REA0IF5)  IOPT.NT.OCT ,OPD  66 

PCT  * DCT  80 

TT  * TTT  00 

PO  * OPO  01 

NTP1=NT*1  02 

MRITE (6, I 1 )NT ,TT  03 

11  FORMAT! 1H0//*  FUR  THIS  PROBLE M* / • 0 THE  NUMBER  OF  C.D.F.  SUBDIVISION  04 

•S  USED  THROUGHOUT  SYNTHESIS  IS*.l5.*.*/*  THE  TARGET  TIME  USED  BY  T 05 

•HE  DETERMINISTIC  SCHEDULER  WAS  *.F10.5>  06 

REACCFS)  NO  INS  07 

IF< ICPT.EQ.O)  GO  TO  17  08 

»RITE(6.16)PD  00 

16  FORMAT!*  THE  MEAN  OF  THE  PRO JECT • , 1 H • , • S APPROXIMATE  COMPLETION  TI  100 

•ME  DISTRIBUTION  MILL  BE  COMPARED  TO  THE*/*  SPECIFIED  PROJECT  DEAOL  101 

•INE  TIME  OF  * ,F 1 2 .5 ) 102 

GC  TO  10  103 

17  P=PCT • 1 00 . 104 

MRITE(6.16>  P.PD  105 

18  FORMAT!*  THE  *,F6.2.*-TM  PERCENTILE  OF  THE  PRO JECT • , 1 H* , • S APPROXI  106 

•MATE  COMPLETION  TIME  DISTRIBUTION  WILL  BE  COMPAREO  TO  THE*/  107 

••  SPECIFIED  PROJECT  DEADLINE  TIME  OF  *,F12.5)  108 

19  WRITEI6.600)  100 

600  FORMAT!//.  10X,*THE  INSTRUCTIONS  TO  BE  PERFORMED  ARE*,//)  110 

WRITEI6. 605 ) 111 

605  FCRMAT(T40,*SERIES=0* ) 112 

MR  I TEI6.610)  113 

610  FORMAT!  5X . • I NSTRUC T ION  NO .*, T 25. • SUBNET WORM *. T 40. • PARALLEL * 1 • • 114 

»T5S. ' SUBNETWORKS  TC  BE  SYNTHESIZED*)  115 

READIES)  FILES  116 

DO  20  1*1, NO 1 NS  117 

NSP*0  118 

DC  210  jxl.24  110 

IF! JSUBNTI I .J) .LE.O ) GO  TO  211  120 

NSP=NSP*I  121 


210 
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211  CONTINUE 

WR1TE( 6 ,26 ) INSNUl I 1 . ISUBNTt  I > • I SORP ( I ) . ( JSUBNT ( I , J)  . J=  l ,NSP» 

26  F0RMAT(/.T11.Ij,T28.1J.T43.I2.TS5.24IJ) 

20  CONTINUE 

Wfi ITEI6.31) 

31  F CRMAT ( 1H1  ,✓/, 1 OK. • SUBNETWORK*  . T30. • APPROXIMATE  DISTRIBUTION  OETER 
«MlNcO  USING  SUBNETWORK  ANALYSIS*) 

35  READ <F5.EN0=V99)  ID. I EOF . < * < I O . J ) . FX ( I 0 . J ) . J* 1 . I EOF ) 

NIEOFI 1 U ) = I EOF 
»R  ITE(t).5lJ  10 

51  FCRMAT(/.T14.13.TJ4.*X*.T48.*F(X>*) 

WR ITE (6. 52)  (X(ID.J).FX(ID.J ) < J— I . I EOF ) 

52  FORMAT ( T25.F 1 5 .S. T39 .F 1 5.5 > 

GO  TO  35 

CONSIDER  INSTRUCTIONS  IN  REVERSE  ORDER  ANO  SYNTHESIZE  ALL  SUBNETWORKS 
ACCORDING  TO  SERIES  OR  PARALLEL 

999  00  ICO  I=l.NUlNS 
I I =N C 1 NS— I ♦ 1 
00  60  3=1.24 
K l = JSUBNT I 1 I . J ) 

JP1=J+1 

K2= JSUBNT (II. JP 1 ) 

IF (K2 .60.0)  GO  TO  75 
IF l I SORP ( II ).E0. 1 ) GO  TO  S5 
CALL  SER1ESIK1 *K2) 

GO  TC  60 

55  CALL  PARAL(Kl,K2) 

STORE  CURRENT  DISTRIBUTION  IN  SUBNETWORK  K2 

60  00  65  K=1.NTP1 
X(K2.K)=XSAVE(K) 

FX(K2.K)=FXSAVE(K) 

65  CONTINUE 

ME0F(k2)=NTP1 
GO  TO  60 

c 

C STORE  DISTRIBUTION  RESULTING  FROM  CURRENT  INSTRUCTION  IN  SUBNETWORK 
C GIVEN  BY  INSTRUCTION 
C 

75  00  76  K=1,NTP1 

X ( 1 SOSNT (II ).K)=XSAVE(K> 

FX( I SCENT (I  I ) .K)=FXSAVE(K> 

7 B CONTINUE 

N 1 EOF ( I SUENT ( I I ) ) =NTP 1 
GO  TO  100 
80  CONTINUE 
100  CONTINUE 

c 

C CLTPUT  FINAL  DISTRIBUTION 

C 

WRITE (6.1 05 ) 

10S  FORMAT ( IH I .//, 10X.* THE  DISTRIBUTION  FOR  THE  SYNTHESIZED  NETWORK  IS 
*• ,//.T 15.*T* .TJO. •FIT)* ) 

00  110  K=l.NTPl 
IF (PCT .GT.FX(l.K))  KEEP=K 
110  WRITEC6.120)  X( l.K).FX(l.K) 

120  FORMAT!  SX.2F15.5) 

c 


122 

123 

12A 

125 

126 
127 
126 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 
1 42 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 
1 53 

154 

155 

156 

157 

158 

159 
1 CO 
161 
162 

163 

164 

165 

166 

167 

168 
169 
1 70 

171 

172 
1 73 
174 
1 75 
1 76 

177 

178 
1 79 
1 80 
181 
182 


•» 


« 
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compute  S AND  PRODUCE  1 NF URMATION  NEEDED  POP  TIME  COMPRESSION 


IF( ICPT.EC.O)  00  TO  140 
S=*t  It  1 )*FX!  1.11 
DO  130  K=2.NTP1 
KM1=K-1 

130  S*S*Xi 1 .K)*!FX! 1 ,K)-FX! l.KMl ) ) 

GC  TC  150 
140  KEEP1=KEEP*1 

0 IFF  1 *X I 1 .KEEP l » — XI 1 .KEEP) 

0IFF2=FX1  1.KEEP1 >— FXt 1 .KEEP) 

0IFF3=PCT-FX< l .KEEP) 

S*X!  I .KEEP) ♦DIFF 140  IF F 3/0 IFF 2 
ISO  TT=PO*TT/S 

ERRPCT=OABS(S-PD)*l OO./PD 
IF  1 IOPT ) 1.1.2 
P*PCT*100. 

WRITE(6.4)P.S 

FORMAT!//. 10X. • THE  *.F6.2.*-TH  PERCENTILE  OF  THE  SYNTHESIZED  OISTP 
•IBUTICN  IS  *.F12.S./> 

GC  TC  3 
API TE  i 6 . 5 ) 5 

FORMAT 1 // 1 OX • T HE  MEAN  OF  THE  SYNTHESIZED  DISTRIBUTION  IS  •.F12.5/) 
feRIT£(6.1 80 ) S.EHRPCT . T T 
180  FORMAT!  1 OX . • THE  DIFFERENCE  BETWEEN  *F12.S.*  ANO  THE  PROJECT  OEA 

• OLINE  IS  • »F9.2« • PERCENT  OF  THE  PROJECT  DEADLINE.*/ 

• 10X. 'HENCE.  THE  NEW  TARGET  TIME  IS  *.F12.5) 

WR1TEI6. 300 ) NC YC 

300  FORMATI//1H0.1J2!***)/*OTHIS  COMPLETES  I TER AT  ION*. 17/ 1H0 .132!* 4*)) 
NC  VC  = NC VC ♦ 1 
TTT*TT 
REWIND  F 4 

WRITE (F4 1NCYC.TTT . NFL AG 
190  STOP 
ENC 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 

c 


THE  FOLLOWING  IS  AN  ALPHABETICAL  LIST  OF  THE  VARIABLES  ANO  ARRAYS  USE 
IN  BOTH  SUBROUTINES 


E T = B E G I NN ING  TIME  FOR  RESULTING  DISTRIBUTION 

OELT= 1 NCREMENT  FOR  THE  X VALUES  ALLOWING  FOR  NT  EQUAL  DIVISIONS 
FR!I>*ITH  C.D.F.  VALUE  FOR  THE  1ST  SUBNETWORK  OF  PAIR  TC  BE  SYNTHESIZ 
FS! 1 )=ITH  C.D.F.  VALUE  FCR  THE  2N0  SUBNETWORK  OF  PAIR  TO  BE  SYNTHESIZ 
NRZNUMBER  OF  POINTS  IN  1ST  SUBNETWORK 
NS*HUMBER  OF  POINTS  IN  2ND  SUBNETWORK 

R!I)=ITH  X VALUE  FOR  THE  1ST  SUBNETWORK  OF  PAIR  TO  BE  SYNTHESIZED 
SIIl-ITH  X VALUE  FOR  THE  2N0  SUBNETWORK  OF  PAIR  TO  BE  SYNTHESIZED 
T«X  VALUE  FOR  THE  RESULTING  SYNTHESIZED  SUBNETWORK 

X MAX* MAXI  MUM  POSSIBLE  X VALUE  FOR  THE  RESULTING  SYNTHESIZED  SUBNETWCR 
XVINaMINlMUM  POSSIBLE  X VALUE  FOR  THE  RESULTING  SYNTHESIZED  SUBNETWOR 


SUBROUTINE  PARAL!K1,K2) 


c 

C SYNTHESIZES  2 PARALLEL  SUBNETWORKS 

c 

IMPLICIT  REAL*6  1A-H.0-Z) 

COMMON  /BLKA/Xi  100.S0).FX{  1 0 0 . 50 ) , XSA VE I 50 ) . F XSA VE1 SO ) , 


• N I EOF { 100). NT 

CCMMCN  /BLKU/H!  50). Si  50). FR!  50). FS!  SO) 
NH*N I EOF i K1 ) 

NS*N 1 EOF ( K2 ) 


1 63 
104 
185 
166 

187 

188 

1 89 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
20  1 
202 

203 

204 

205 

206 

207 

208 

209 

210 

2 1 1 
212 
2 13 

214 

215 

216 

217 

218 

219 

220 
22  I 
222 

223 

224 

225 
22  6 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 
24  I 

242 

243 


o n n 
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CC  10  1=1, NW 
R<  I )=X(K1, 1 i 
10  FM 1 ) =FX(Kl( 1 1 
00  IS  1-1. NS 
S( I >=X1K2, 1 ) 

IS  FS<I)=FX(K2.1> 

XXlNiOXINI(H( l 1 ,S1 1 1 ) 

XMAX=CMAX1(R(NR),SINS)) 

BT=XMIN 

OELT  = < XMAX-XMIN1/NT 

T =6T— CELT 

OC  SO  1=1. NT 

F 1 = 0.000 

F2=0. 000 

T = T ♦CELT 

00  40  J=l.NR 

IFIRl Jl.GT.T)  GO  TO  41 

F l=FR( J1 

40  CONTINUE 

41  00  45  0=1. NS 

1F(S( Jl.GT.T)  GO  TO  46 
F2=FS< J) 

45  CONTINUE 

46  FXSAVEl  1 )=F14F2 
XSAVE ( I >=T 

SC  CONTINUE 
NTP l*NT ♦ 1 

F XSA Vt (NTP1 1=1. 000 
XSAVE (NTP 1 ) = AMAX 
RETURN 
ENO 

SUBROUTINE  SER I ESI K 1 « K2  ) 

SYNTHESIZES  2 SUBNETWORKS  IN  SERIES 
IMPLICIT  REAL  *b  I A— H .0—2  I 

CCMMC N /BLKA/Xl 1 00.50 l.FXI 100,50) .XSAVE ( SO) .FXSAVEl 50) . 
•NIEOF(100).NT 

COMMON  /OLKU/M  SO),S(  50),FR(  SOl.FSl  SO) 

NP=N1ECF ( K 1 ) 

N S = N 1 EOF  (K2) 

00  10  1=1, NR 
MI  )=X(K1.I) 

10  FR( I )=FX(K1 . i I 
DO  15  1=1. NS 
S( I ) = X(K2, I I 
IS  FSI I ) >FX(K2. 1 ) 

XMIN=F ( 1)4S( 1) 

XMAX  = M NR  )»S(NS  ) 

8T=XMIN 

OEL  T = ( XMAX-XM1N I/NT 

T*BT-OELT 

00  55  1=1. NT 

FT=0.000 

T*T40ELT 

00  SO  J=1,NS 

IF(SIJ).GT.T)  GO  TO  54 

IF( J.GT  .1  ) GO  TO  JO 

FF=FS( 1 ) 

GO  TO  JS 
30  JJ=J-1 


244 

245 

246 

247 

248 

249 
2 50 

251 

252 

253 

254 

255 

256 

257 

258 

259 
2 60 
261 
262 

263 

264 

265 

266 

26  7 
268 

269 

270 

27  1 
2 72 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 
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FF=FS{ J)-FS< JJ> 

305 

35 

FTKS=0.000 

306 

TMS=T-S( J) 

307 

00  40  K^ltNK 

308 

IFtR(K) .GT.TMSI  GO  TO  4S 

309 

FTFS<Ffi(K) 

310 

40 

CONT INUE 

31  1 

45 

FT=FT4FF4FTMS 

312 

SO 

CONTINUE 

313 

54 

X SAVE! II*T 

314 

F X S A VE  ( 1 ) =F  T 

315 

55 

CONTINUE 

316 

NTP l =NT ♦ 1 

317 

FXS A VE  < N TP 1 1 = 1.000 

318 

XSAVE (NTP 1 )=XMAX 

315 

RETURN 

320 

END 

321 
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9.  SAVEFIL 


C PROGRAM  SAVtFlL  1 

C 2 

C THIS  PROGRAM  TRANSFERS  THE  OPER AT  I CNAL  I NF  CFM  AT  ION  GENERATE!)  3 

C BY  ThE  STATISTICAL  PERT  PROGRAMS  FROM  THE  TEMPORARY  FILES  TO  * 

C THE  PERMANENT  DATA  SET  DEFINEC  AS  I/O-UNIT  PS  5 

C 6 

C 7 

C INPUT  INSTRUCTIONS  6 

C 9 

C A SINGLE  CARO  SHOULD  BE  SUPPLIED  AS  INPUT  TO  THIS  PROGRAM.  10 

C THE  CARO  SHOULD  DEAR  (N  COLUMNS  I - B THE  NAME  OF  THC  LAST  11 

C PROGRAM  EXECUTED  UEFORE  THIS  INTERRUPT.  12 

C I FORM  AT  2A4,  LEFT  JUSTIFIED)  13 

C 14 

C FOR  THE  SAKE  OF  IDENTIFYING  THE  APPROPRIATE  DIMENSIONS.  LET  15 

c MM AX  = THE  MAXIMUM  NUMBER  OF  ACTIVITIES  IN  THE  ORIGINAL  16 

C PROJECT  NET  »ORK  17 

C BKMAX  = THE  MAXIMUM  NUMBER  CF  eREAK  POINTS  ALLOWED  IN  THE  IB 

C ENTIRE  PROJECT'S  TIME-COST  CURVE  IS 

C NCTMAX  = THE  MAXIMUM  NUMBER  OF  COMPLETION  TIMES  AND  COSTS  FOR  20 

C EACH  ACTIVITY  21 

C IEDFMAX  = THE  MAXIMUM  NUMBER  OF  SUBDIVISIONS  ALLOWED  IN  THE  22 

C APPROXIMATE  CDF  FCR  EACH  SUBNETWORK  23 

C NCINSMAX  = THE  MAXIMUM  NUMBER  OF  INSTRUCTIONS  GENERATED  BY  THE  24 

C DECOMPOSITION  PROCESS  25 

C 26 

C INTCGERW4  F ILEO ( 4AMM AX45 ) .NCT I MM AX > . F I LE30 ( 3 *MM A X*S ) . 27 

C ♦ FILES! N0INSMAXW27)  28 

C INTEGER42  BRE AK ( BKMAX ) . T I MCS T (2 4NCTM A XJ . F ILE6 ( 2AMMAX ) 29 

C Rt AL*e  FCI IEDFMAX) . XI IEDFMAX ) 30 

C EQUIVALENCE  l F I LEO! 34MMAX *6 ) . NCT ( 1 ) ) 31 

C 32 

C 33 

INTEGER  F 0/8/. F 1/9/ .F2/10/.F3/1 1 /, F4/ 1 2/ .F5/ I 3/ . F 6/ l 4/ . F 7/1 5/  34 

INTEGER  PS/4/  35 

INTEGER  F ILEO (4  005 ). NCT ( 1000 ) , F ILE3A ( 11). FILE 3B I 3005 ) , F ILE5 I 270 0 ) . 36 

• LIST! 24)  37 

REAL  F ILE 1 ! 5) .F ILE2 ( 5 ) 36 

REALAS  CCF( 12) « F D!  2 0 ) . X i 2 0 ) 39 

INTEGER *2  N BREAK , BREAK (3000I.TI MCST I 12) .TEST! .TEST2. TESTS. ST  I ME . 40 

• FILE6I2000)  41 

EQUIVALENCE  ! F ILEO! 1 ) .NACT) . IF ILEO! 3006) .NCT ! 1 ) ) 42 

EQUIVALENCE  (FIlEI!  1 ).FILE2! 1).FILE3A( 1) .FILE3BC  1). FILES! I ).  43 

• FILEG! 1 ) .UREAKII ) .TI MCST! I ) .LIST (i ) .COFI I ) ,FG(1 ) I 44 

INTEGER  I PROG ! 2 ) 45 

INTEGER  PR0vj!13)/'MAIN' . ‘LOOP* •• OPS  • . • DSR  1 S I MP •.• MODS DECO • , 46 

• • SUBN* . • SYNT« . • DSR  • , • MODS*  . • SUBN* . • S YNT • / 47 

C 46 

WR1TEI6.112)  49 

REwINC  F4  50 

REA0IF4 )NCYC  51 

REAOIS, l 10) IPROG  52 

Kl=l  53 

IF <NCYC.GE.2)K1=10  54 

CC  1 I — K 1 , 13  55 

IF  I IPRCG I 1 I.EU.PRQGI I ) »GC  TO  2 56 

1 CONTINUE  57 

»RITE(6.I11)  58 

GO  TO  109  59 

2 K* I 60 


<J  O <J 
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REMINO  FO  61 

REMINO  FI  62 

Rtk INC  F2  63 

REmINC  F 3 64 

REMINC  F 4 65 

REMIND  F5  66 

REMINC  F6  67 

REMINO  F7  68 

REMIND  PS  69 

70 

REAO  AND  STORE  FILEO  71 

72 

REAO(FO)  F1LE0  73 

MRITE  (PSIFIlEO  74 

REAO (FO  I JM AT  75 

MRITE1PS ) JMAT  76 

1F1K.LT. 3)00  TO  3 77 

REAO { F 0 ) NBREAK. (BREAK! I I . (s 1 . NBREAK I 78 

MRITE (PS  INBREAK. (BREAK (I  I . I x l . N BREAK ) 79 

3 CCNTlNUt  BO 

C 81 

C RE AC  ANO  STORE  FILEI  62 

C 83 

REAO (F l I TEST  1 • TEST 2.TEST3.ST I ME  64 

MRI TE (PSI TEST  1 « TEST2 . T£  ST3.ST I ME  85 

OC  4 ixl.NACT  66 

NNCT  = NC  Till  67 

NNCT1=NNCT-1  88 

NNCT  2* 24 NNCT  69 

RE  AO (FI)  €71 MCST (JI.Jxl. NNC  T2 I 90 

MRITE(PSI(TIMCST(J).J=1. NNCT  2 I 91 

00  4 Jx l • NNCT 1 92 

R E AC (FI)  FILEI  93 

MRlTEIPSIFiLEl  94 

4 CONTINUE  95 

C 96 

C REAO  ANO  STORE  F I LE2  97 

C 96 

1F1K.NE.4.AN0.K. NE. 5 .ANO.K.NE.IO I GO  TO  6 99 

00  5 Ixl.NACT  100 

RE AC ( F2  I F1LE2  101 

MR!Tt(PS)FILE2  102 

5 CONTINUE  103 

6 CCNTINUE  104 

C 105 

C REAC  ANC  STORE  FILE3  106 

C 107 

REAC  1 F 3 I FILE3A  106 

MRITE(PS)F ILE3A  109 

IF (K.NE.5.ANO.K.NE.6IGO  TO  7 110 

REAC 1 F3 I FILE3B  111 

MRITEIPSIFILE3B  112 

7 CCNTINUE  113 

IF(K.LT.7ICU  TO  10  114 

8 RE AC(F3.EN0=9 JM  115 

MRITE(PS)  M 116 

MMx243*M  117 

REAO (F3 I (F1LE3B! ll.lxl.PM)  116 

MRITE(PS) (FILE3B1I) .1*1. PH)  119 

60  TO  6 120 

9 MO  121 


TEXAS  A AND  M UNIV  COLLEGE  STATION  INST  OF  STATISTICS 
A USER'S  GUIDE  TO  THE  COMPUTER  IMPLEMENTATION  OF  THE  Nl 
AUG  76  T C BAKER*  R L SIELKEN  NOOOlZ' 

THENIS-TR-57 
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ARITE(PS>M 

122 

10 

CONTINUE 

123 

c 

124 

c 

REAC  AND  STUPE  F I LE  4 

12S 

c 

126 

RCA0IF4)  NCVC.TT.NFLAG 

127 

APITE (PS) NCVC.TT.NFLAG 

126 

IF (K  .NE .6.AND.K.NE. 7.AND.K.NE. 1 1 IGO  TO  12 

129 

READ (FA  1 JNACT 

130 

ARITE(PS) JNACT 

131 

CO  11  1=1. JNACT 

132 

REAC(FA)  cof 

133 

ARITEIPSICDF 

134 

1 1 

CCNT INOE 

135 

12 

con; inoe 

136 

c 

137 

c 

REAC  ANO  STORE  FILES 

136 

c 

1 39 

REACCFSI  10PF.NT.PCT.P0 

140 

ARITEIPS) IOPT.NT.PCT ,PO 

141 

IF(K.LT.7)GG  TO  IS 

142 

RE AO  < F S 1 NO INS 

143 

ARITE(PS)N01NS 

144 

RE  AO  C F S ) FILES 

14S 

mriteipsifiles 

146 

IF(K.NE.8.ANO.K.NE.l2)GO  TO  IS 

147 

13 

REA0(FS.EN0=14) lO.IEOF.lFOl I ) . X ( 1 > . 1 = 1 . I EOF) 

148 

• RITE  IPS ) 10.  I EOF. (FOCI  I.X1  1 1. 1=1 . I EOF  1 

149 

GO  TO  13 

1 SO 

14 

IO  = - 1 

1SI 

• RITE  1 PS  1 10. I EOF. <F0< I l.XC  1 1. 1 = 1.  I EOF! 

1 S2 

IS 

CONTINUE 

1 S3 

c 

IS4 

c 

READ  ANO  STORE  F1LE6 

ISS 

c 

IS6 

IFIK.LT.3IGO  TO  17 

157 

NAC  T 2 = 2 AN ACT 

158 

OC  16  I=1.NUREAK 

159 

RE  AO (F  6 1 (FILE61 J). J=l .NACT2 > 

160 

AR1TE(PS)(F1LE6(J)  . J*  l • N ACT  2 ) 

161 

16 

CCNT INOE 

162 

1 7 

CONTINUE 

163 

C 

164 

C 

REAC  ANO  STORE  F I LE 7 

165 

c 

166 

1FIK.LT.SIG0  TO  20 

167 

is 

REAL)  IF  7 . END=  1 9 1 L 1 ST 

168 

■RITE(PS)  LIST 

169 

GO  TO  ia 

170 

19 

LIST! 1 )=-l 

171 

AR 1TE (PS )LI ST 

172 

20 

CON . INUE 

173 

C 

174 

c 

ARITE  TERMINATION  INFORMATION 

175 

c 

176 

AfilTE (6. 1 1 J1PS.NCTC. 1 PROG 

177 

109 

STOP 

178 

1 10 

FORMAT (2A4) 

179 

111 

FORMAT ( IHO.SA.* THE  NAME  SPECIFIED  FOR  THE 

LAST 

PROGRAM  EXECUTED  IS 

180 

« INVALID.*) 

181 

112 

FORMAT! 1H1.132! • •• )/lX.  I 32 1 • • • 1/ • OTH 1 S IS 

THE 

OUTPUT  FOR  THE  SYSTE 

182 
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• M INTERRUPTION  PROGRAM:  SAVEF IL'/ 1H0. 132 ( •♦• »/I*. 132( • ♦ • ) I 183 

FORMAT ( I HO • 5X « • T ME  OPERATIONAL  INFORMATION  GENERATEO  BY  THE  STATIS  184 

• TICAL  PERT  PROGRAMS  HAS  BEEN  SUCCESSFULLY  TRANSFERRED • /6 X • * TC  THE  185 

•CATA  SET  DEFINED  AS  1/O-UNIT  • . I 2//6X . • THE  PROCEDURE  aAS  INTERRUPT  186 

• EO  DURING  THE  '.IS.'-TH  1 TER AT I ON. • /6X , 2 A4 , • MAS  THE  LAST  PROGRAM  187 

♦EXECUTED ) 188 

ENO  189 
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10.  READFIL 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PROGRAM  REAOFIL 

THIS  FROGNAM  RETRIEVES  THE  OPERAT I CNAL  INFORMATION  FOR  THE 

statistical  pert  programs  from  the  permanent  file  referenced  by 

i/C— UNIT  PS  ANO  RESTORES  IT  TO  THE  APPROPRIATE  TEMPORARY  FILES 


INPUT  INSTRUCTIONS 

A SINGLE  CARD  SHOULD  BE  SUPPLIED  AS  INPUT  TO  THIS  PROGRAM. 


THE  CARO  SHOULO  BEAR  THE  FOLLOWING: 

COLS  1-  a:  the  name  of  the  last  PROGRAM  EXECUTED  BEFORE 
The  INTERRUPT  IFORMAT  2A4.  LEFT  JUSTIFIED) 
COL  to:  0 IF  THE  PROCEDURE  to AS  1 NT  ERRPUTED  BEFORE 

THE  FIRST  EXECUTION  OF  SYNTH 
I OTHERS  I SE 

THE  REMAINING  PARAMETERS  SHOULO  ONLY  BE  SUPPLIED  IF  THE 
PROCEDURE  MAS  INTERRUPTED  IMMEDIATELY  AFTER  THE  EXECUTION 
OF  SYNTH 


COLS  11-20: 
CCLS  2I-2SJ 


COLS  26-30: 
CCLS  31-40: 
COLS  41 -so: 


THE  VALUE  OF  TT  FCR  THE  NEXT  ITERATION  IF 
DIFFERENT  FROM  THE  VALUE  SPECIFIED  BY  SYNTH 
I IF  THE  VALUES  OF  ANY  CF  THE  FOLLOWING 

PARAMETERS  ARE  TC  BE  DIFFERENT  FROM  THEIR 
CURRENT  VALUES  IN  THE  NEXT  ITERATION: 

ICPT ,PCT ,PD 
0 OTHERWISE 

THE  VALUE  OF  ICPT  FOR  THE  NEXT  ITERATION 
THE  VALUE  OF  PC T FOR  THE  NEXT  ITERATION 
THE  VALUE  OF  PD  FGR  THE  NEXT  ITERATION 


FOR  THE  SAKE  OF  IDENTIFYING  THE  APPROPRIATE  DIMENSIONS.  LET 
MMAX  * THE  MAXIMUM  NUMBER  OF  ACTIVITIES  IN  THE  ORIGINAL 
PROJECT  NETWORK 

BKMAX  * THE  MAXIMUM  NUMBER  OF  eREAK  PCINTS  ALLOWED  IN  THE 
ENTIRE  PROJECT'S  TIME-COST  CURVE 
NCTMAX  * THE  MAXIMUM  NUMBER  CF  COMPLETION  TIMES  ANC  COSTS  FOR 
EACH  ACTI VI  TV 

IECFMAX  « THE  MAXIMUM  NUMBER  OF  SUBDIVISIONS  ALLOWEO  IN  THE 
APPROXIMATE  COF  FOR  EACH  SUBNETWORK 
NCINSMAX  * THE  MAXIMUM  NUMBER  OF  INSTRUCTIONS  GENERATED  BY  THE 
DECOMPOS I T I CN  PROCESS 

CURRENTLY.  MMAXxlOOOI  BKMAX=JOOOJ  NCTMAX«=6;  I EDF  M AX  = 2C  i 
NCINSMAX* I 00 

I NTEGER44  F I LEO  I 4* MM AX  45 ) . NCT I MMAX I . F ILE3BI 3 *MMA  X4S  ) . 

« F ILESI  NO! NSMAX427) 

I NT  EGER *2  ORE AK I BKMAX ) . T I MCS T I 24NCTM AX) . F ILE6I 24 MMAX ) 

REAl*E  FOI IEDFMAX) .XI IEOFMAX) 

ECU I VALENCE  IFILEOI  34MMAX46) * NCT I i) ) 

INTEGLR  FO/B/.F 1/9/. F2/ 10/ >F 3/1 l / ,F4/ 1 2/ ,F5/ 1 3/ . F6/1 4/.F7/I5/ 
INTEGER  PS/4/ 

INTEGER  F ILL 0<  4005) .NCT I 1 000 ) .F I LE3A I ID .F ILE30 1 300S ) . F I LE5 I 270 0 ) . 

• LIST!  24  ) 

REAL  FILEIISI.FI LE2 IS) 

REAL • 0 CCF II2).F0I20).X(20) 

INTEGER* 2 NUREAK .BREAK  I 3000 ) . T IM  CST I 12) .TEST  1 . TEST2. TEST 3. ST  I ME . 

* FILE6I2000) 


2 

3 " 

4 

5 

6 
7 

e 

9 
to 
1 1 
12 

13 

14 

15 

16 
I 7 

te 

19 

20 
21 
22 

23 

24 

25 
2 fc 
27 
2E 

29 

30 

31 

32 

33 

34 

35 

36 

37 
36 

39 

40 

41 

42 

43 

44 

45 

46 

47 
4 8 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 


a a ft  u ft  ft  ft 
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CCU 1 VALENCE  I F ILEO I I ) iN ACT  I . I F ILEO I 3006  I . NCT 1 1 1 ) Cl 

EQUIVALENCE:  ( FILE  It  1 I .F ILE2I  II  .F  ILE3  A ( I ) .F  ILE3BI  1 ) ,F  ILES 1 1 I • 62 

• F ILE6 I 1 I • BREAK! I ) • T 1 MCST I 1)>LIST(1) • COF Il)tFO(l))  63 

INTEGER  IPR0GI2J  64 

INTEGER  PROG! 13 )✓• MA IN*  # *LOOP*  t • OPS  *.*OSR  • • *SI MP* i • MODS* « ' OECO* • 65 

• * SUBN* • * SYNT • » • OSR  • • • MOOS* • *SUBN* • • STNT • / 66 

C 67 

kRITEI6.1l2)  68 

RE AO (5. It OIPROG.NCVC* IFLG.TTT.t IOPT .PPCT.PPO  69 

Kl*10  70 

IFINCVC.EO.OIKtal  71 

OC  I I-K1.1J  72 

IF< I PROG  ft l.EQ.PROGI 1 J >G0  TO  2 73 

1 CONTINUE  • 74 

kRlTEI6.Hl)  75 

GC  TO  109  76 

2 K*1  77 

REkINO  FO  78 

RE k 1 NO  FI  79 

REkINO  F2  80 

RE k I NO  F 3 81 

RE k INC  F4  82 

REklNC  FS  83 

RE k I NC  F6  84 

REklNC  F7  85 

REkINO  PS  86 

87 

RESTORE  FILEO  88 

89 

REACIPSI  FILEO  90 

kR ITEIFOIF 1LE0  91 

REACIPSI  JMAT  92 

kRITLIFO) JMAT  93 

1 F I K .LT . 3)00  TO  3 94 

RE  AO  ( PS  ) NBREAK.<BREAKII).I>I.NBREAK)  95 

MR1TEIF0INBREAK. (BREAK! I 1.1*1 • NBREAK ) 96 

ERCFILE  FO  97 

CONTINUE  98 

99 

RESTORE  FILE1  100 

101 

REACIPSI  TEST1.TEST2. TESTS. STIME  102 

kRITEIFl  I TEST  1 • TEST2  . TEST3.STIME  103 

CC  4 lal.NACT  104 

NNCT*NCT III  105 

NNCT 1*NNCT— 1 106 

NNCT  2*2*NNCT  107 

RE AO  IPS  I IT  I MCST I J I • J* I .NNCT 2 I 108 

kRITEIFl I ITIMCSTI J) • J* 1 < NNCT  2 1 109 

00  4 J«  l i NNCT 1 110 

REAOtPS I FlLEl  111 

kRITEIFlIFlLEI  112 

4 CONTINUE  113 

EKOFILE  FI  114 

• C IIS 

C RESTORE  FILE2  116 

C 117 

IFIK.NE.4.ANO.K.NE.S.ANO.K.NE.IOIGO  TO  6 118 

00  S l-I.NACT  119 

REACIPSI  F1LE2  120 

SRITEIF2IFILE2  121 


r>  n 
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5 CONTINUE  122 

ENCFIlE  F 2 123 

e CCMISLE  124 

C 125 

C RESTORE  MLEJ  126 

C 127 

RE  AC  (PS  I FILEJA  126 

4RITE1F3IF IlEJA  129 

If (K.NE.S.ANO.K.NE .6 IGU  TO  7 130 

REA01PS)  FIlEJo  131 

ER1TE ( F J ) F ILL  Jd  132 

7 CONTINUE  133 

1F1K.LT.71GU  TO  10  134 

S REAOIFS)*  135 

IF (M.EQ.O) GO  TO  9 136 

WR1TE1F31M  137 

K*»  = 2f  3*M  136 

RE  AO ( F S ) (FILE3B1 1 1 . I = 1 « RM1  139 

KRITEI F3) (FILE3B1 I ) , 1*1 .MM)  140 

GC  TO  6 141 

9 CONTINUE  142 

ENOF1LE  F3  143 

10  CONTINUE  144 

145 

RESTORE  F1LE4  146 

C 147 

RE AO ( PS  1 NCTC.TT .NFLAG  1 4e 

IF(TTT.NE.O.O)TT=TTT  149 

6R1TE1F41NCVC.TT. NFLAG  150 

IF (K.NE.6.ANO.K. NE. 7.ANO.K.NE.1 1 » GO  TO  12  151 

REAO(PS)  JNACT  152 

4R1TE1F4) JNACT  153 

00  II  1=1, JNACT  154 

RE  AC  IPS)  COF  155 

4RITE1F4IC0F  156 

It  CONTINUE  157 

12  CCNT1NUE  156 

C 159 

C RESTORE  FILES  160 

C 161 

READ  IPS)  IOPT .NT .PCT ,PO  162 

IF( IFLG.EC.OiGO  TO  21  163 

IOPT= I IOPT  164 

PC  T *PPC  T 165 

PO=PPO  166 
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